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ABSTMCT 


Heat  transfer  performance  of  steam  condensing  on 
horizontal  finned  tubes  made  of  copper,  aluminvim,  copper 
nickel (90/10) ,  and  stainless  steel (316)  was  studied  using  a 
condenser  test  rig  at  both  vacuum  and  atmospheric  conditions. 


Integral  fin  tubes  included  conventional  rectangular  shaped 
fins  as  well  as  rectangular  fins  having  a  radiussed  root 
geometry  (ie,  a  fillet  radius  equal  to  half  the  fin  spacing)  . 
All  finned  tubes  had  inner  and  outer  diameters  of  12.70mm  and 
15.88mm  respectively,  and  had  a  fin  thickness  of  l.Omm  and  a 
fin  spacing  of  l.5mm.  The  overall  heat  transfer  coefficient 
(Uq)  was  determined  experimentally  and  the  outside  heat 
transfer  coefficient  (h^)  was  obtained  utilizing  a  modified 
Wilson  Plot  procedure. 

Results  indicated  that  the  performance  of  a  finned  tube 
was  strongly  dependent  on  the  tube  material  and  weakly 
dependent  on  fin  geometry.  Radiussing  the  fin  root  to  remove 
condensate  between  fins  in  the  unflooded  portion  (ie,  top 
portion)  of  a  finned  tube  reduced  the  heat  transfer 
performance  compared  to  a  conventional  rectangular  shaped 
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integral  fin.  Experimental  data  were  compared  to  the  models  of  cra&i 

TAB 

Beatty  and  Katz  as  well  as  to  a  modified  model  of  Rose.  Unanno.  ct-d 
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Qnuss  heat  flux  for  smooth  tube  based  on  Nusselt  theory, 

W/m^ 

Qnuss  heat  transfer  rate  for  smooth  tube  based  on  Nusselt 

theory ,  W 

qg  heat  flux  for  interfin  spacing,  W/m^ 

Qg  heat  transfer  rate  for  smooth  tube,  W 

qi.  heat  flux  for  fin  tip,  W/m^ 

radius  of  fin  root,  m 
R2  radius  of  fin  tip,  m 

R2c  correction  for  adiabatic  fin  tip  (R2  +  t/2) ,  m 

Rg  constant  used  in  Bessel  function  as  defined  in 

equation  (2.10) 

R],  constant  used  in  Bessel  function  as  defined  in 

equation  (2.11) 

Re  Reynolds  number 

Re20  two  phase  Reynolds  number 

Rj^  inside  resistance,  K/W 
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radius  of  fin  tip,  d,  or 
outside  resistance,  K/w 
radius  of  interfin  root,  n 
total  themal  resistance,  K/W 
wall  themal  resistance,  K/W 
interfin  spacing,  n 
thickness  of  fin,  n 

temperature  difference  across  the  condensate  film, 
K 

temperature  difference  across  the  condensate  film, 
K 

temperature  at  tube  inlet,  K 
temperature  at  tube  outlet,  K 
condensate  film  temperature,  K 
constant  as  defined  in  equation  (2.35),  or 
saturated  steam  temperature,  K 
saturated  steam  vapor  temperature,  K 
constant  as  defined  in  equation  (2.31) 
outer  tube  wall  temperature,  K 
outside  wall  temperature  of  tube,  K 
vapor  velocity,  m/s 

overall  heat  transfer  coefficient,  W/ (m^*K) 
constant  defined  in  equation  (4.22) 
constant  defined  in  equation  (4.21) 
defined  from  equation  (4.14),  W/ (m^*K) 
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Greek  Symbols 

a  leading  coefficient  for  the  outside  heat  transfer 

coefficient  used  to  determine  enhancement 
Of  leading  coefficient  for  the  outside  heat  transfer 

coefficient  for  a  finned  tube  used  to  determine 
enhancement 

a,  leading  coefficient  for  the  outside  heat  transfer 

coefficient  for  a  smooth  tube  used  to  determine 
enhancement 

P  half  angle  at  fin  tip,  radians 

S  thickness  as  defined  in  equation  (2.13),  m 

r|  fin  efficiency 

fin  efficiency  as  defined  in  equation  (4.6a) 

»l2  fin  efficiency  as  defined  in  equation  (4.6b) 

r\f  thermal  efficiency  of  the  fin  material 

€  constant  defined  in  equation  (4.17) 

€j^  active  surface  area  enhancement  ratio  for  a 

rectangular  shaped  finned  tube  as  defined  in 

equation  (2.15) 

£^5  total  surface  area  enhancement  ratio  for  a 

rectangular  shaped  finned  tube  as  defined  in 

equation  (2.14) 

£^^  enhancement  based  on  a  smooth  tube  equation  (2.20) 

£,yi  active  surface  area  enhancement  ratio  tor  a 

radiussed  root  finned  tube  as  defined  in  equation 
(2.38) 
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Cfs  total  surface  area  enhancement  ratio  for  a 

radiussed  root  finned  tube  as  defined  in  equation 
(2.37) 

heat  transfer  enhancement  ratio  for  a  rectangular 
shaped  finned  tube  based  on  Nusselt  theory 
heat  transfer  enhancement  ratio  for  a  radiussed 
root  finned  tube  based  on  Nusselt  theory 
M  dynamic  viscosity,  kg/(m*s) 

Hf  dynamic  viscosity  of  the  condensate  film,  )cg/(m*s) 

dynamic  viscosity  of  the  cooling  water,  kg/(m*s) 
p  density,  kg/m^ 

P  density  difference  (Pf  -  p^) ,  kg/m^ 

Pf  density  of  condensate  film,  kg/m^ 

Py  density  of  the  vapor,  kg/m^ 

0  condensate  flooding  angle  as  defined  in  equation 

(1.8) 

^  surface  tension  of  condensate,  N/m 

$  as  defined  in  equation  (2.8) 

$ (0)  as  defined  in  equation  (2.26) 

n  constant  defined  in  equation  (4.15) 
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I.  IMTRODUCTZOM 

A.  BACXORODIID 

With  the  end  of  the  Cold  War,  the  major  interest  in  the 
U.S.  today  is  to  balance  the  budget.  Part  of  this  process  is 
the  reduction  of  Naval  forces.  Technology  must  be  developed 
to  meet  future  threats  and  costs  must  remain  within  the 
budget.  The  acquisition  of  a  new  system  depends  primarily  on 
its  total  cost.  Today  the  priorities  of  new  major 

acquisitions  are  1)  cost,  2)  performance,  and  3)  time  to 
become  fully  operational.  Reductions  in  size  and  weight  have 
become  increasingly  important  design  considerations  in  the 
development  of  every  component  destined  for  use  aboard  United 
States  Navy  vessels.  Gas  turbine  propulsion  plants  have 
significantly  reduced  the  weight  and  space  for  main  propulsion 
machinery  aboard  surface  combatants.  However,  weight 
reductions  in  auxiliary  heat  exchangers  and  other  large 
components  such  as  main  steam  condensers  aboard  nuclear 
submarines  have  progressed  more  slowly.  The  use  of  heat 
transfer  enhancement  techniques  for  condenser  tubing  pursues 
this  goal.  Smaller,  more  efficient  condensers  would  result  in 
reductions  in  initial  cost,  space  and  weight  requirements,  and 
perhaps,  operating  cost.  These  heat  transfer  enhancement 
techniques  can  be  utilized  for  other  systems  as  well. 
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The  performance  of  condenser  tubes  is  determined  primarily 
from  the  thermal  resistances  on  the  coolant  side,  across  the 
tube  wall,  on  the  vapor  side,  and  due  to  fouling.  Each 
resistance  can  be  reduced  to  minimize  its  effect,  which  in 
turn,  enhances  the  overall  heat  transfer  rate  of  the  system. 
The  major  or  dominant  resistance  in  general  is  on  the  inside, 
which  can  be  reduced  by  suitable  internal  enhancement 
techniques.  The  wall  thermal  resistance  can  be  reduced  by 
decreasing  the  wall  thickness  or  changing  the  tube  material. 

Enhancement  techniques  are  categorized  into  two  major 
groups,  active  and  passive.  Passive  techniques  include 
internal  helical  ribbing,  displaced  promoters  (the  use  of  wire 
mesh  or  Heatex  inserts) ,  and  finned  surfaces.  Active 
techniques  are  the  use  of  devices  that  add  energy  to  the 
system  and  not  are  part  of  this  thesis.  This  thesis  will 
focus  on  externally  finned  surface  condenser  tubing.  Earlier 
studies  with  finned  tubing  showed  little  improvement  for  steam 
condensation  due  to  the  large  amount  of  condensate  retained 
between  the  fins  and  the  underprediction  of  the  heat  transfer 
coefficient.  Better  understanding  of  the  two  phase  heat 
transfer  phenomena  and  improved  models  have  renewed  the 
interest  of  integral  finned  tubes  for  steam  condensers. 

B.  COMDEMSATION 

Since  1916,  researchers  have  attempted  to  improve  the 
simple  model  of  Nusselt  to  predict  the  heat  transfer 
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coefficient  for  condensation  on  horizontal  tubes.  Nusselt's 
theory  was  based  on  a  plain  tube,  and  neglected  the  effect  of 
vapor  shear.  In  1948,  Beatty  and  Katz  [Ref.  1]  developed  an 
analytical  model  to  predict  the  outside  heat  transfer 
coefficient  for  an  integral  finned  tube.  Their  model 
accounted  for  the  thermal  conductivity  (efficiency)  of  the 
tube  material.  Their  basic  equation  is  sho%im  below: 


ij=0.689 


1/4 

1 

1/4 

1 

A  ty,l 

(1.1) 


The  equivalent  diameter,  D^,  can  be  calculated  from  [Ref.  2] 
as  follows: 


=1.3011^ 


Aefl 


71/4 


(1.2) 


1/4 


Where : 


L=H 


kDl-Dl) 

4^0 


(1.3) 


(1.4) 
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(1.5) 
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Afr-^f^Dot  (1«6) 

Ao=nfttD^s 

and  T)  is  the  thermal  efficiency  of  the  fins.  The  Beatty  and 
Katz  model  neglects  the  effects  of  surface  tension  of  the 
condensate  and  the  vapor  shear.  These  forces  thin  the 
condensate  film  between  the  fins.  Beatty  and  Katz  tested 
horizontal  integral  spiral-finned  tubes  made  from  copper  and 
nickel  using  a  variety  of  fluids:  propane^  n-butane,  n- 
pentane,  methyl  chloride,  sulfur  dioxide,  and  freon-22.  These 
fluids  have  small  surface  tension  effects.  The  predicted  heat 
transfer  coefficients  were  within  +7.2%  and  -10.2%  of  the 
values  determined  from  the  overall  heat  transfer  data. 

Rudy  and  Webb  [Ref.  3]  developed  an  analytical  model  that 
predicts  the  amount  of  condensate  retention  on  a  horizontal 
integral  finned  tube.  The  model  showed  that  a  significant 
portion  of  the  surface  can  be  covered  by  retained  condensate. 
Honda  et  al.  [Ref.  4]  recommended,  for  rectangular-shaped 
fins,  the  condensate  flooding  angle  0  be  computed  from  the 
relationship. 
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(1.8) 


♦=cos'M 
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The  condensate  flooding  angle  is  measured  from  the  top  of  the 
finned  tube  as  shown  in  Figure  1.1.  For  rectangular  finned 
tubes,  retained  condensate  forms  a  wedge  at  the  base  of  the 
fin  root.  This  condensate  film  wedge  increases  in  thickness 
from  the  top  to  the  bottom  of  the  tube.  The  condensate 
flooding  angle  is  the  point  in  which  the  condensate  wedge 
covers  the  entire  fin  flanks  and  inter fin  spacing.  The  shaded 
area,  in  Figure  1.1,  represents  the  retained  condensate  wedge. 
It  is  assumed  that  no  heat  transfer  occurs  in  the  shaded  area. 
The  unshaded  areas,  in  Figure  1.1,  are  the  uncovered  fraction 
of  the  fin  flanks  and  interfin  spacing  for  heat  transfer.  For 
a  fin  spacing  of  1.5mm,  height  of  imm,  and  thickness  of  1mm, 
0  »  82.08°  for  steam  at  100°C.  Yau,  Cooper,  and  Rose  [Ref.  5] 
also  Wanniarachchi ,  Marto  and  Rose  [Ref.  6]  studied  the  effect 
of  fin  spacing  and  the  resulting  flooding  angle  for  maximum 
vapor-side  enhancement.  They  concluded  that  for  a  copper 
rectangular  Integral  finned  tube,  the  optimum  fin  spacing  is 
si. 5mm  for  a  fin  thickness  of  1mm  and  height  of  1mm.  Masuda 
and  Rose  [Ref.  7]  conducted  a  detailed  study  of  the  static 
configuration  of  the  retained  liquid  using  equation  (1.8). 
The  obseirved  heat  transfer  enhancement  was  higher  than 
expected  and  attributed  it  to  the  surface  tension  effects. 
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Masuda  and  Rose  examined  the  enhancement  ratio  for  the  total 
surface  area  for  a  rectangular  finned  and  a  radiussed  root 
finned  tube.  They  also  studied  the  active  surface  area 
enhancement  using  the  condensate  retention  angle  to  deteinnine 
the  flooded  and  unflooded  fraction  of  the  fin  surface  area. 
The  flooded  area  was  also  called  the  blanked  area  by  retained 
liquid.  Rose  [Ref.  8]  modified  the  Nusselt  equation  to 
account  for  the  gravitational  and  surface  tension  forces  for 
the  condensate.  The  enhancement  ratios  are  based  on  the  same 
temperature  differential  using  the  blanked  and  unblanked 
fraction  of  the  fin  surfaces.  However,  they  did  not  include 
the  efficiency  of  the  material. 

Due  to  the  complexity  of  the  steam  condensation  problem 
for  horizontal  finned  tubes,  no  one  model  has  been  developed 
that  correlates  the  efficiency  of  the  material  along  with 
other  effects  of  the  surface  tension  of  the  condensate,  the 
gravity  force  of  the  condensate,  steam  vapor  velocities,  and 
the  condensate  flooding  angle. 

C.  NAVAL  POSTGRADUATE  SCHOOL  CONDENSATION  RESEARCH 

This  thesis  continues  the  research  that  was  begun  under 
sponsorship  of  the  National  Science  Foundation  at  the  Naval 
Postgraduate  School  (NPS) .  The  apparatus  constructed  by  Krohn 
[Ref.  9],  June  1982,  was  modified  by  Swensen  [Ref.  10].  The 
basic  operation  of  the  system  remained  unchanged.  Copper 
horizontal  integral  finned  tubes  of  various  fin  geometries  and 
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tube  diameters  have  been  extensively  studied  at  NPS 
independently.  Rectangular  finned  tubes  were  studied  by  Coumes 
[Ref.  11],  Van  Petten  [Ref.  12],  and  Guttendorf  [Ref.  13]. 
Mitrou  [Ref.  14],  in  addition  to  copper,  studied  copper  nickel 
and  aluminum  rectangular  fins.  Detailed  studies  are  required 
comparing  different  rectangular  and  fillet  radial  fins  of 
different  materials.  The  additional  studies  will  help 
determine  the  best  material  and  fin  geometry  for  a  particular 
operating  system. 

D.  OBJECTIVES  OF  THIS  THESIS 

The  main  objectives  of  this  thesis  are: 


1.  Obtain  repeatable  data  for  steam  condensation  on 
horizontal  tubes  having  rectangular  shaped  radial  fins 
made  of  copper,  aluminum,  copper  nickel,  and  stainless 
steel,  showing  the  effects  on  the  thermal  conductivity 
of  the  materials. 

2.  Compare  the  data  for  rectangular  shaped  finned  tubes  to 
radiussed  root  finned  tubes  to  examine  the  influence  of 
the  radius  on  the  enhancement  for  each  material. 

3.  Compare  the  experimental  data  to  the  predicted  values 
using  existing  theoretical  models  of  Beatty  and  Katz 
[Ref.  l]and  Rose  [Ref.  8]. 
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ZI.  LZTBRATXntB  SDRyiY 


A.  C0MDEM8ATI0M 

Condensation  has  been  Intensely  studied  as  a  heat  transfer 
nechanism.  The  developments  in  condenser  tubing  and  compact 
electronic  equipment  continued  the  requirement  for 
experimental  and  theoretical  research  in  this  field. 

There  are  two  fundamental  modes  of  condensation,  filmwise 
and  dropwise.  Dropwise  condensation,  as  its  name  states,  is 
the  condensing  of  the  vapor  into  discrete  liquid  droplets  on 
the  surface.  As  the  droplets  grow,  they  coalesce  until  they 
are  large  enough  to  be  removed  by  gravity  or  vapor  shear. 
Filmwise  condensation  creates  a  continuous  liquid  film  over 
the  entire  surface  area.  The  heat  transfer  rate  for  the  tube 
is  reduced  due  to  the  relatively  thick  condensate  film 
thickness.  Dropwise  condensation  can  produce  a  heat  transfer 
rate  as  much  as  an  order  of  magnitude  larger  than  that 
associated  with  filmwise  condensation.  Since  the  heat 
transfer  rate  is  lower  for  the  filmwise  condensation, 
condenser  design  calculations  are  normally  based  on  this  more 
conservative  mode  of  condensation  [Ref.  15].  Complete 
filmwise  condensation  may  be  difficult  to  produce.  The  tube 
must  be  free  of  oils,  greases  and  non-wetting  chemical 
deposits. 
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B.  BEAT  TRAIIBFBR  C0RRBLATI01I8 

The  heat  transfer  coefficients  for  condensation  on 
horizontal  tubes  are  difficult  to  accurately  predict.  A 
suitable  theoretical  model  must  be  developed  and  utilized. 

1.  Horisontal  Smooth  Tubes 

Nusselt  [Ref.  16]  developed  the  foundation  for  the 
study  of  filmwise  condensation  on  horizontal  tubes  in  1916. 
His  correlation  was  developed  for  a  quiescent  vapor  condensing 
on  a  single  horizontal  tube.  He  neglected  shear  forces  and 
the  thermal  conductivity  of  the  tube  material.  The  shear 
forces  of  the  liquid  cause  the  condensate  film  to  increase  in 
thickness  from  the  top  of  the  tube  to  the  bottom.  Gravity 
force  assists  in  draining  the  condensate  around  the  sides  of 
the  tube  circumference.  The  heat  flux  changes  around  the 
circumference  of  the  tube  with  the  maximum  heat  flux  at  the 
top  of  the  tube  where  the  film  is  the  thinnest  with  no  heat 
transfer  at  the  tube  bottom  where  the  film  is  the  thickest. 
Nusselt 's  equation  for  the  average  outside  heat  transfer 
coefficient  around  the  tube  is  the  following: 


/Jo=0.728 


^lsrPf(Pf-Pv) 


(2.1) 


where  the  fluid  properties  are  evaluated  at  the  film 
temperature,  defined  as: 
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(2.2) 


Nusselt's  theory  has  been  extensively  studied  since 
1916.  Even  with  his  simplifying  assumptions,  his  work  has 
been  found  to  be  generally  valid  [Ref.  17,  18].  His  theory 
was  also  found  to  be  accurate  for  cases  which  do  not  conform 
to  his  original  assumptions,  such  as  variable  wall  temperature 
[Ref.  19].  One  of  the  major  problems  in  applying  Nusselt's 
theory  in  the  design  of  condensers  is  the  assumption  of  a 
quiescent  vapor.  While  in  theory  the  assumption  of  a 
stationary  vapor  can  be  justified,  steam  condensers  operate 
under  conditions  where  the  vapor  is  travelling  at  some 
velocity. 

With  the  vapor  in  motion,  shear  forces  are  developed 
which  thin  the  condensate  film  and  increase  the  outside  heat 
transfer  coefficient.  Early  theoretical  work  by  Shekriladze 
and  Gomelauri  [Ref.  20]  accounted  for  vapor  shear  forces. 
They  assumed  that  the  primary  contribution  to  the  surface 
shear  stress  was  due  to  the  change  in  momentum  across  the 
liquid-vapor  interface.  This  resulted  in  the  following 
equation  to  approximate  the  mean  Nusselt  number: 


-^=0.64  (1+(1+1.69F)1/2)1/2 

Reli 


(2.3) 
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where : 


(2.4) 


and  the  two  phase  Reynolds  number  is  given  by: 


PfUJ^o 

Pf 


(2.5) 


Lee  and  Rose  [Ref.  21]  compared  vapor  shear  models  with 
experimental  results  and  found  that  the  Shekriladze-Gomelauri 
results  were  more  conservative  than  other  researchers  due  to 
their  simplified  approximation  for  the  interfacial  shear 
stress.  Fuji!  et  al.  [Ref.  22],  in  a  more  recent  study, 
performed  an  extensive  development  of  the  shear  forces  on  the 
outside  of  a  horizontal  tube.  From  experimental  data,  they 
also  developed  a  simple  empirical  formulation  for  the 
condensation  of  steam  on  a  horizontal  tube  which  includes 
vapor  velocity  effects: 

;^-0.96F>«  (2.6) 


Where  F  and  Re2^  are  defined  in  equations  (2.4)  and  (2.5) .  For 
situations  where  the  surface  shear  forces  dominate,  as  for 


12 


steam,  equation  (2.6)  more  accurately  predicts  the  vapor  side 
heat  transfer  coefficient  than  equation  (2.3). 

As  discussed  previously,  the  primary  modes  of  external 
tube  enhancement  covered  in  this  study  are  rectangular  fins 
and  fillet  radius  fins.  There  are  advantages  and 
disadvantages  for  each  depending  on  the  environment  or 
operating  conditions  in  which  the  tube  is  to  be  used. 

2.  Rectangular-Shaped  Finned  Tubes 

Fins  can  be  attached  to  the  surface  of  smooth  tubes  to 
increase  the  heat  transfer  between  the  surface  and  the  vapor 
medium.  The  enhancement  is  due  primarily  to  the  increase  in 
surface  area.  The  fins  also  channel  the  flow  of  the 
condensate.  As  the  condensate  forms  and  travels  to  the  root 
of  the  fin,  it's  film  varies  in  thickness.  The  film  at  top  of 
the  fin  is  generally  thinner  than  at  the  bottom.  This 
thinning  increases  the  heat  transfer  rate  of  the  tube.  Part 
of  the  increase  in  enhancement  is  therefore  caused  by  the 
surface  tension  of  the  condensate  and  the  vapor  shear  forces. 

The  fins  used  by  Beatty  and  Katz  [Ref.  1]  were  spiral. 
However,  their  theory  applies  for  rectangular-shaped  annular 
fins.  The  efficiency  equation  used  by  Beatty  and  Katz  [Ref. 
1]  was  not  listed,  but  the  efficiency  for  a  rectangular-shaped 
annular  fin  can  be  used  (equation  (2.7))  from  [Ref.  23]: 


)  iq  )  ] 


(2.7) 
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where : 


(2.8) 

(2.9) 

/?,*v^/(l-/ei/i?2c)  (2.10) 

(2.11) 


where  is  the  corrected  length  of  the  fin  determined  by: 

Lp=L+t/2  (2.12) 

«  =  |  (2.13) 


Equation  (2.7)  assumes  an  adiabatic  fin  tip  (no  heat  transfer 
through  the  fin  tip).  Figure  2.1  is  a  sketch  of  an  annular 
fin  of  rectangular  profile  used  to  defined  the  dimensions  in 
the  above  equations.  The  efficiency  of  finned  tubes  not  only 
depends  on  the  tube  material  but  also  the  fin  tube  geometry. 
Figure  2.2  illustrates  the  change  in  efficiency  of  a  fin  as 
the  geometry  and  the  thermal  conductivity  of  the  material 
changes.  The  higher  the  thermal  conductivity  of  a  material, 
the  higher  the  efficiency  of  the  material. 


14 


Gregorig  [Ref.  24]  discovered  that  fins  generated  a 
surface  tension  force  which  tended  to  thin  the  condensate  at 
the  tip  and  thicken  it  between  the  fins.  Masuda  and  Rose 
[Ref.  6]  examined  condensate  retention  on  horizontal  finned 
tubes.  They  defined  an  enhancement  ratio  for  the  increase  in 
surface  area  by  dividing  the  total  surface  area  of  a 
rectangular-shaped  fin  by  the  area  of  a  smooth  tube  of  the 
root  diameter: 


The  first  term  in  the  numerator  is  the  area  for  the  interfin 
space,  the  middle  term  is  the  fin  flank  surface  area,  and  the 
third  term  is  the  fin  tip  surface  area.  The  condensate 
flooding  angle  equation  (1.8)  was  used  to  determine  the 
fraction  of  the  fin  flank  and  tip  area  blanked  by  the 
condensate  film.  They  defined  an  "active  area  enhancement" 
for  a  rectangular-shaped  finned  tube  by  dividing  the  unblanked 
finned  tube  surface  area  by  the  surface  area  of  a  smooth  tube 
of  root  diameter.  It  is  given  by  equation  (2.15): 


R^{l-f,)*(Ri-R^)^ll-fg)  *nR^t 
nR^{b*t) 


(2.15) 


The  first  term  in  the  numerator  is  the  unblanked  area  of  the 
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interfin  space,  the  middle  term  is  the  unblanked  area  of  the 
fin  flanks,  and  the  third  is  the  fin  tip  area.  The  tip  was 
assumed  to  be  free  of  condensate.  The  fraction  of  the 
unblanked  surface  areas  covered  by  condensate  is  given  by: 
For  the  interfin  space. 


\l  tan(4>/2)  \ 

[  99Rri>) 

\  <l>  ) 

(2.16) 


and  for  the  fin  flank. 


(2.17) 


Honda  et  al  [Ref.  25]  and  Adamek  and  Webb  [Ref.  26] 
have  formulated  models  for  film  condensation  on  horizontal 
finned  tubes,  but  they  are  difficult  to  use.  Recently, 
Briggs,  Wen,  and  Rose  [Ref.  27]  conducted  a  detailed  review  of 
the  accuracy  of  various  models  to  measure  heat  transfer  for 
condensation  on  horizontal  integral  finned  tubes.  The  simple 
model  of  Beatty  and  Katz  [Ref.  1]  does  not  account  for  surface 
tension  effects.  The  Adamek  and  Webb  model  [Ref.  26]  included 
an  approximate  surface  tension  effect  and  the  result  was  an 
improved  enhancement  prediction.  They  concluded  the  best 
model  to  predict  the  heat  transfer  measurements  is  the  Honda 
et  al  model  [Ref.  25]  which  accounts  for  both  the  condensate 
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flooding  and  the  enhancing  effect  of  surface  tension  drainage 
from  the  fins.  This  is  the  most  accurate  model  for  predicting 
the  heat  transfer  measurements  for  steam  condensation  on 
horizontal  integral  finned  tubes.  However,  the  model  is  very 
complex  which  limits  its  use.  Rose  [Ref.  8]  proposed  a  "very 
simple  model"  to  approximate  the  vapor  side  heat  transfer 
coefficient  for  condensation  on  low  integral  finned  tubes. 
His  model  included  surface  tension  and  condensate  flooding, 
but  neglected  the  resistance  due  to  conduction  in  the  fin 
material.  Rose  [Ref.  8]  formulated  a  simpler  semi-*empirical 
equation  for  calculating  the  vapor-side  enhancement  ratio  for 
condensation  on  low-finned  tubes.  His  equation  accounts  for 
the  condensate  flooding  angle,  as  well  as  gravity  and  surface 
tension  effects.  He  noted  that  if  the  ratio  of  ocosP/ (pgbD^,) 
is  greater  than  0.5,  the  interfin  space  is  fully  flooded  and 
the  condensate  retention  angle  is  zero.  The  Nusselt  theory 
was  modified  by  replacing  the  fin  height  with  the  vertical  fin 
height  determined  from  equation  (2.18)  or  (2.19). 

For  0  <  w/2; 


hy=h^3in^ 


(2.18) 


For  0  ^  ff/2: 


hy=h^/ (2-sin^) 


(2.19) 
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The  enhancement  ratio  for  the  same  AT  was  determined  by 
dividing  the  heat  transfer  rate  of  the  finned  tube  (with 
blanked  areas)  by  the  heat  transfer  rate  of  a  smooth  tube  of 
the  same  root  diameter  and  AT: 


_Qf/^T_Ot 

oJ^t'  0^ 


(2.20) 


Where  the  heat  transfer  rate  for  the  rectangular  finned  tube 
is, 


K 


(l-ff)*(I>|-D|) 


g^+(l-fg)  JiD^sg^ 


(2.21) 


and  the  heat  transfer  rate  of  a  smooth  tube  of  root  diameter 
was  determined  from  Nusselt  theory, 

(?5=iiD,{s+t)g,„g^.  (2.22) 


In  the  above  expressions,  the  heat  transfer  fluxes  are: 
Nusselt  theory,  for  a  smooth  tube  of  root  diameter  D^: 


Qnuss^O.l  28 


1/4 


(2.23) 


for  the  fin  flanks: 
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(2.24) 


for  the  inter fin  space: 


(2.25) 


where  $(0) ,  the  mean  condensate  film  thickness  from  the  top  of 
the  horizontal  tube  to  the  condensate  flooding  angle  0  is; 

5  (<^)  =0 . 874+0 . 1991xl0‘*4>-0 . 2642xl0‘^^*+0 . 5530xl0*^^^ -0 . 1363xl0'*^* 

(2.26) 


for  the  fin  tip: 


J  pAfgAr^r  0 .728^pg^ 


(2.27) 


f  -  tan(<^/2) 


(2.28) 
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(2.29) 


:(  4o  Vtan(^/2)\ 


Using  the  above  relationships,  the  enhancement  ratio  for 
constant  (AT)  can  be  rearranged  into  equation  (2.30): 


-  O 


- - - 7’.+  -^ 

(s+t)  ^  n 


il-ff) 


dI-dI 


2D,  (s+t) 


(S+t)  * 

(2.30) 


where 


0.728'* 


(2.31) 


(2.32) 


r  0.9431 

[0.728 

K  0.728^ 

1/4 


(2.33) 


(2.34) 
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11/4 


(2.35) 


(g(4>))^ 

0.728* 


0.728* 


t 


and 


ODt 
Psrs^  * 


(2.36) 


Note  that  this  enhancement  model  neglects  the  conductivity  of 
the  fin  material  and  requires  the  specification  of  four 
coefficients  Bf,  B,  and  B,.  Rose  compared  calculated 
values  from  equation  (2.30)  to  existing  experimental  data  for 
a  copper  fin  tube  using  R-113  and  steam  condensing  vapors. 
After  extensive  curve-fitting,  the  constants  were  determined 
to  be  B,=*2.96  and  B^=  B^=  B^®  0.143.  For  steam,  the  theoretical 
enhancement  values  were  within  -25%  of  the  experimental 
enhancement  results. 

3.  Radiussed  Root  Finned  Tubes 

Radiussed  root  fins  are  rectangular  shaped  fins  with 
the  sharp  base  corners  removed.  Figure  2.3  shows  the 
radiussed  root  finned  tubes  and  the  rectangular  shaped  finned 
tube  used  in  this  study.  The  finned  tube  root  was  rounded 
with  a  radius  equal  to  half  the  fin  spacing.  Radiussed  root 
finned  tubes  have  less  total  surface  area  than  rectangular 
shaped  finned  tubes.  Nasuda  and  Rose  [Ref.  7]  defined  the 
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total  surface  area  enhancement  of  a  radlussed  root  finned  tube 


as: 


'TS 


p2_/p  +  b\^ 

°  \  ^  2 

2  ^  2^  X 

Rgib+t) 


(2.37) 


However,  by  radiussing  the  fin  root,  there  is  no  condensate 
wedge  at  the  base  of  the  fin  that  occurs  in  rectangular  fins. 
Thus,  more  of  the  surface  area  remains  "active**.  They  defined 
the  "active  area  enhancement"  as: 


Ro-l 


(2.38) 


Briggs,  Wen  and  Rose  [Ref.  28]  continued  the  investigation  of 
the  effect  of  radiussed  root  for  rectangular  shaped  finned 
tube.  They  tested  two  radiussed  root  tubes  and  two 
rectangular  shaped  finned  tubes  made  of  copper.  With  a  high 
thermal  conductivity  material,  they  expected  a  large  increase 
in  experimental  enhancement  due  to  the  increase  in  the  "active 
surface  area"  for  the  radiussed  root  tube.  The  enhancement 
ratio  of  the  "active  surface  area"  for  a  radiussed  root  tube 
(€^,)  and  a  rectangular  finned  tube  (€^) ,  (c^^  /  e^) ,  was  1.53 
for  steam  with  a  1.5mm  fin  spacing  and  1.42  for  a  1.0mm  fin 
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spacing.  The  enhancement  ratio  for  the  1.0mm  fin  spacing 
agreed  well  with  the  experimental  enhancement  heat  transfer 
ratio  (  F  of  1.33,  but  the  experimental  heat  transfer 
enhancement  ratio  for  the  1.5mm  fin  spacing  was  only  1.09. 
They  felt  the  small  corresponding  increase  in  enhancement  for 
the  1.5mm  spacing  seemed  somewhat  anomalous  and  intend  to 
repeat  the  data. 


23 


Figure  2.1 


Schematic  of  Annular  Fin  of  Rectangular 
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Efficiencies  for  various  fin  geometries  of  different  material  for  the  same 

outside  heat  transfer  coefficient 


(vie)  AONBlOldda 


Figure  2.2  Efficiencies  for  various  Fin  Geometries  for 

Different  Materials  for  the  same  outside  Heat 
Transfer  Coefficient  (ho=  10000  (W/ (m^*K) ) ) 
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Figure  2.3 


Dimensions 


-  toT  Finned  TuJ»s  Teet^ 

rectangular  shaped  tinned  P;- 

h»  l.Omm,  s*  1.5mm,  and  t*  l.Omm,  (b)  aeep 


radiussed  root  finned  tube 


Dy»  13.88mm, 

h-  l.Omm,  s-  1.5mm,  t*  l-O”®'  ^ 

(c)  shallow  radiussed  root  finned  tube 

D_®  14.38mm, 
and  b*  0.75inm 


0.7  5mm ,  s*  1 . 5mm ,  t*®  1 . 0mm , 
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XZZ.  BZFBSZliSMTAL  APPJOATUS 


K.  SYSTEM  OYBRVZBW 

The  apparatus  is  basically  the  sane  as  designed  by  Krohn 
[Ref.  9]  and  modified  by  Swensen  [Ref.  10].  Figure  3.1  is  a 
schematic  of  the  test  apparatus.  The  boiler  is  fabricated 
from  a  .3048m  diameter  Pyrex  Glass  tube  with  ten  4-’lcw,  Hatlow 
immersion  heaters.  The  boiler  can  be  filled  by  gravity  drain 
or  vacuiun  drag  from  a  distilled  water  tank  through  a 
fill/drain  valve.  The  steam  travels  vertically  from  the 
boiler  section  into  a  2.13m  long  section  of  Pyrex  tubing,  with 
a  diameter  of  0.15m.  It  then  travels  through  two  90**  elbows 
that  act  as  a  moisture  separator  and  direct  the  flow  down  to 
the  stainless  steel  test  section.  The  Pyrex  glass  sections 
are  insulated  to  reduce  the  heat  lost  to  the  environment. 

The  test  section  is  fitted  with  openings  for  Teflon  and 
nylon  seals  which  support  the  horizontal  tube  and  provide  the 
coolant  flow  path.  Figures  3.1  and  3.2  illustrate  the  cooling 
flow  path  and  the  temperature  probes.  Cooling  water  is 
provided  to  the  test  tube  via  two  positive  displacement 
centrifugal  pumps.  The  pumps  discharge  to  a  flowmeter  via  a 
common  line.  Cooling  water  flow  was  controlled  by  a  throttle 
valve  up  streeun  of  the  flowmeter.  Temperature  in  the  sump  is 
controlled  by  supplementing  tap  water.  The  cooling  water  siunp 
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serves  two  purpose,  1)  to  provide  the  coolant  for  the  test 
tube  and  2)  to  provide  a  heat  exchanger  for  the  vacuum  line. 
Excess  steam,  the  steam  not  condensed  by  the  horizontal  tube, 
flows  across  the  axixiliary  condenser. 

The  auxiliary  condenser  section  is  also  fabricated  of 
Pyrex  glass.  Ambient  temperature  water  which  flows  through  an 
internal  copper  tube  was  used  to  condense  the  remaining  ste2un. 
A  suction  port  is  located  in  the  bottommost  part  of  this 
section  to  remove  air  and  other  non-condensible  gases.  These 
gases  are  expelled  to  the  atmosphere  via  a  vacuum  line  to  a 
Plexiglas  tank  connected  to  the  vacuum  pump.  A  layout  of  the 
purging  system  is  shown  in  Figure  3.3.  Gravity  drains  the 
condensed  steam  back  to  the  boiler. 

B.  SYSTEM  mSTRUMEMTATZOM 

The  power  for  the  immersion  boiler  is  provided  by  a  440 
Volt  silicon  controlled  rectifier  mounted  within  the 
electrical  switchboard.  Figure  3.4  is  a  line  diagram  of  the 
power  supply.  A  feedback  loop  was  installed  to  maintain  a 
constant  power  supply  to  the  boiler.  Part  of  the  voltage  was 
used  for  an  emf  sign  for  a  pressure  conversion.  This  was  one 
of  the  three  means  to  determine  the  pressure  in  the  test 
section.  The  other  two  are  i)  a  Setra  model  204  pressure 
transducer  and  2)  a  direct  reading  from  a  Heise  pressure  gage 
(this  was  used  only  as  a  visual  reference) . 
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The  vapor  temperature  was  measured  by  a  Type-T 
thermocouple  located  upstream  of  the  horizontal  tube  being 
tested  or  calculated  as  a  function  of  the  voltage  reading  from 
the  pressure  transducer.  Cooling  water  temperatures  were 
calculated  from  the  inlet  and  outlet  temperatures  of  the  flow 
through  the  test  tube.  The  temperature  differential  of  the 
cooling  water  used  was  either  from  a  Teflon  coated  Type-T 
thermocouple,  a  ten  junction  thermopile,  or  a  HP  284A  quartz 
crystal  thermometer.  The  location  of  the  probes  are 
illustrated  in  Figures  3.1  and  3.2. 

An  HP-3497A  data  acquisition  system  links  the  voltage 
readings  from  the  various  elements  to  an  HP-9826A  computer, 
except  for  the  quartz  thermometer  which  is  read  directly.  The 
HP-9826A  computer  used  the  program  '’DRPALL",  listed  in 
Appendix  A,  to  collect,  process  and  store  data.  The  computer 
stepped  through  the  voltage  output  channels  of  the  acquisition 
unit  and  used  it's  internal  functions  to  convert  the  emf 
voltage  signal  into  useful  data. 

C.  TUBES  TESTED 

A  total  of  fifteen  tubes  were  manufactured  for  this 
thesis,  thirteen  finned  tubes  and  two  smooth  tubes.  The 
finned  tubes  were  made  of  copper,  aluminum,  copper  nickel 
(90/10), and  stainless  steel  (316).  There  were  three  types  of 
finned  tubes: 
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1.  Type  I,  standard  rectangular  shaped  finned  tube,  root 
diameter  of  13.88mm,  fin  height  l.Omm. 

2.  Type  II,  rectangular  shaped  finned  tube  with  a 

radiussed  root,  tube  diameter  at  the  root  was  the  same 
as  the  rectangular  shaped  finned  tube  (13.88mm)  and  the 
fin  height  was  l.Omm  from  the  fin  root.  This  tube  was 
referred  to  as  the  "deep  fillet  fin  tube"  during  the 
test  procedures. 

3.  Type  III,  rectangular  shaped  finned  tube  with  a 

radiussed  root,  tube  diameter  of  14.38mm.  The  fin 
height  of  this  tube  was  the  same  as  the  radius  of 
radiussed  root  (0.75mm).  This  finned  tube  was  referred 
to  as  the  "shallow  fin  tube". 


The  thermal  conductivities  for  the  tube  materials  used  are 
listed  in  TABLE  I.  The  values  were  obtained  by  curve-fitting 
the  data  in  [Ref.  29]  for  the  temperature  range  of  the  study. 
Figure  3.5  illustrate  the  relative  size  and  the  geometry  of 
the  tubes.  Figures  3.6,  3.7,  and  3.8  are  photographs  of  the 
rectangular  shaped  finned  tube,  deep  radiussed  root  finned 
tube,  and  shallow  radiussed  root  finned  tubes,  respectively. 
The  dark  lines  in  the  radiussed  root  photographs  are  light 
reflections  from  the  curvature  of  the  fin  root  and  not  the 
actual  machining  of  the  finned  tube.  The  inside  diameter,  D^, 
of  all  tubes  tested  was  12.7mm.  All  the  finned  tubes  had  an 
outside  diameter  of  15.88mm  for  the  fins.  The  first  smooth 
tube  made  had  an  outside  diameter,  0^,  of  13.88mm.  It  was 
damaged  during  testing  and  a  second  (stiffer)  tube  was 
manufactured,  outside  diameter  of  14.38mm.  The  tube  was 
filled  with  "Cerabond  375°"  to  reinforce  the  tube  wall  while 
machining.  This  reinforcing  compound  was  removed  after 
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machining  by  heating  the  tube.  All  residue  was  removed  during 
tube  preparation. 

All  tubes  were  tested  with  a  Heatex  insert  (wire  mesh 
promoter)  to  increase  the  accuracy  of  the  results.  Minor  tool 
marks  inside  the  tube  from  the  machining  operation  were 
neglected  due  to  the  increased  turbulence  by  the  Heatex 
insert.  TABLE  II  is  a  list  of  all  tubes  tested  and  their 
geometry. 

TABLE  I.  THERMAL  CONDUCTIVITIES  OF  TUBES  TESTED. 


MATERIAL 

THERMAL  COMDUCTIVITY  (ko) 
(H/  (m*K) ) 

COPPER 

390.8 

ALUMINUM 

231.8 

COPPER-NICKEL  (90/10) 

55.3 

STAINLESS  STEEL 

14.3 
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TABLE  II.  DIMENSIONS  AND  MATERIALS  FOR  TUBES  TESTED 


Tube 

No. 

Tube  Type 

Tube 

Material 

Root 

Diameter 

imm' 

Pin 

Height 

_ Lam} _ 

Outer 

Diameter 

Fin 

Thic)cness 

(mn) 

Fin 

Spacing 

B 

lei? 

13.88 

Bl 

15.88 

1.00 

1.50 

2 

Shallow 

Fillet 

Copper 

(Pure) 

14.38 

0.7S 

15.88 

1.00 

1.50 

3 

Deep  Fillet 

Copper 

(Pure) 

13.88 

1.00 

15.88 

1.00 

1.50 

■ 

Deep  Fillet 

Copper 

Nickel 

(90/10) 

13.88 

1.00 

15.88 

1.00 

1.50 

5 

Shallow 

Fillet 

Copper 

Nic)cel 

(90/10) 

14.38 

0.75 

15.88 

1.00 

1.50 

6 

Rectangular 

Fin 

Copper 

Nic)cel 

(90/10) 

13.88 

1.00 

B 

1.00 

1.50 

m 

Deep  Fillet 

Stainless 

Steel 

(316) 

13.88 

1.00 

15.88 

l.OC 

1.50 

8 

Shallow 

Fillet 

Stainless 

Steel 

(316) 

B 

0.75 

15.88 

1.00 

1.50 

9 

Rectangular 

Fin 

Stainless 

Steel 

(316) 

13.88 

1.00 

15.88 

1.00 

im 

10 

Rectangular 

Fin 

Aluminum 

(Pure) 

13.88 

1.00 

■B 

B 

Deep  Fillet 

Aluminum 

(Pure) 

1.00 

15.88 

l.OC 

1.50 

13 

Shallow 

Fillet 

Aluminum 

(Pure) 

MB 

0.75 

15.88 

1.00 

1.50 

ODl 

Smooth 

Copper 

(Pure) 

NA 

NA 

NA 

SMTH 

Smooth 

Copper 

(Pure' 

14.38 

NA 

14.38 

NA 

NA 
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MfXMG  CHAMBER 
QUARTZ  CRYSTAL 
THERMOMETER  PROBE 


VACUUM  GAGE 


Figure  3.4  Single  Line  Wiring  Diagram  of  the  Controller 
Circuit  for  the  emf  Voltage  Signal  Input  to  the 
Data  Acquisition  Unit 
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Figure  3.5 


Photograph  of  the  lour  Types  of  Tubes  Tested 
and  Heatex  Insert  used  (from  left  to  right 
rectangular  shaped  finned  tube,  deep  radiussed 
root  finned  tube,  shallow  radiussed  root 
finned  tube,  smooth  tube,  and  insert) 


Figure  3 . 6 


Photograph  of  the  Rectangular  Shaped  Finned 
Tube 


b 


I  i  I 


t  ■  i  !  ' 


I  ' 


»  • 


Figure  3.7 


Photograph  of  the  Deep  Radiussed  Root  Finned 
Tube 


Figure  3.8  Photograph  of  the  Shallow  Radiussed  Root 

Finned  Tube 


39 


ZV.  BZPBRUCSMTAL  PROCSOURS8  AMD  DATA  AMALYSZS 


A.  TDBB  PRBPAMATZQM 

Prior  to  operation,  the  teet  tubes  were  cleaned  and 
chemically  treated  to  promote  filmwise  condensation  during  the 
data  collection  process.  The  chemical  treatment  solution 
[Ref.  30]  had  been  used  by  several  other  researchers  at  NPS 
and  was  developed  for  copper  tubes.  The  solution  was  a 
mixture  of  50  percent  by  weight  of  sodium  hydroxide  and  ethyl 
alcohol.  This  solution  was  modified  during  this  thesis  to  50 
milliliters  of  ethyl  alcohol  combined  with  1/2  teaspoon  of 
sodium  hydroxide  pellets.  The  solution  does  not  affect 
stainless  steel  but  it  is  important  to  follow  the  same 
procedure  for  a  completely  uncontaminated  tube.  Additional 
chemical  treatment  solutions  are  contained  in  [Ref.  31]. 
Guttendorf  [Ref.  13]  outlined  the  basic  procedure.  The 
following  procedure  was  used: 


1.  The  outside  of  the  tube  was  thoroughly  cleaned  with  a 
mild  soap  solution  using  a  soft  bristle  brush.  A 
circular  wire  brush  was  used  for  the  inside.  The  soap 
was  rinsed  off  and  the  tube  was  checked  for  filmwise 
condensation.  Breaks  in  the  film  indicated 
contamination  and  dropwise  condensation.  If  there  were 
signs  of  breakage,  the  outside  surface  was  again 
cleaned  with  the  soap  solution  and  rinsed  with 
distilled  water.  Once  a  continuous  film  was  present, 
the  active  surface  was  not  touched. 

2.  The  tube  was  then  placed  in  a  steam  bath,  to  heat  the 
tube  and  surround  the  tube  surface  with  moist  air. 
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3.  The  sodium  hydroxide  and  ethyl  alcohol  solution  was 
then  applied  to  the  tube  surface.  The  solution  should 
be  mixed  prior  to  the  each  treatment  because  the  sodium 
hydroxide  absorbs  CO^  from  the  air  which  could  affect 
the  compound  solution.  It  was  kept  warm  (-25°C)  to 
ensure  a  watery  consistency. 

4.  The  solution  was  applied  with  a  small  brush  in  10 
minute  intervals  for  one  hour.  While  applying  the 
solution,  the  tube  was  rotated  to  ensure  the  entire 
surface  was  treated.  The  wire  brush  handle  was  used  to 
maintain  the  position  of  the  tube  over  the  steam  bath. 
If  the  tube  was  treated  previously,  the  tube  was 
cleaned  with  the  soap  solution  and  rinsed  with 
distilled  water.  If  there  were  no  film  breaks,  the 
tube  was  placed  in  the  steam  bath  and  the  solution  was 
applied  every  5  minutes  over  a  20  minute  period. 

5.  After  the  tube  surface  was  treated,  it  was  removed  from 
the  steam  bath  and  rinsed  with  acetone  to  remove  excess 
solution.  The  acetone  was  rinsed  with  distilled  water. 
If  there  were  no  breaks  in  the  film,  the  tube  was 
inserted  into  the  test  section.  After  the  insert  was 
installed,  coolant  flow  was  started  to  the  tube  to 
maintain  the  film.  A  leak  check  of  the  cooling  water 
system  was  performed  and  the  flow  rate  was  set  at  about 
65%. 


The  oxide  layer  formed  by  the  chemical  treatment  promoted 
a  continuous  film  on  the  tube  surface.  The  film  was  very 
thin,  making  the  thermal  resistance  insignificant  in  the 
overall  resistance  of  the  tube. 


B.  SYSTEM  START'UP  AMD  SHUTDOMM  PROCEDURES 

Once  the  system  was  assembled,  it  could  be  brought  on-line 
using  the  following  procedures: 

1.  The  boiler  section  must  be  filled  with  distilled  water 
to  a  level  approximately  4  to  6  inches  above  the  top  of 
the  heater  elements.  If  the  test  tube  was  not 
installed,  the  boiler  was  filled  by  gravity  drain  from 
the  distilled  water  tank.  This  was  done  by  attaching 
a  hose  to  the  drain/fill  line  below  the  boiler.  To 
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reduce  time,  if  the  test  tube  was  installed,  the  boiler 
was  filled  by  vacuum  drag.  Vacuum  drag  was 
accomplished  by  placing  the  system  under  a  vacuum  (~10 
psia) ,  connecting  the  fill  hose  and  then  opening  the 
drain/fill  valve. 

2.  When  the  appropriate  water  level  has  been  achieved, 
shut  the  fill/drain  valve.  The  by-pass /condensate 
return  valve  was  always  left  open.  The  by¬ 
pass/condensate  valve  is  located  below  the  boiler, 
between  it  and  the  condensate  drain/fill  valve. 

3.  Energize  the  data  acquisition  unit,  computer,  printer, 
and  quartz  thermometer  power  supplies.  These  units  are 
normally  left  on  line.  Load  the  software  program 
DRPALL  and  check  for  proper  operation.  To  load  the 
program,  insert  the  program  disk  and  type  LOAD 
"DRPALL" .  Type  RUN  and  answer  the  prompt  questions  up 
to  "ENTER  FLOWMETER  READING".  The  data  acquisition 
unit  should  be  displaying  channel  40  in  the  remote 
setting.  If  the  system  power  supplies  are  maintained 
from  a  previous  run,  this  is  not  required.  Verify  that 
thermocouple  outputs  all  correspond  to  ambient 
temperature . 

4.  Open  the  fill  valve  to  the  cooling  water  supply  tank 
and  adjust  the  flow.  It  needs  only  to  be  cracked  open. 
The  flow  should  be  set  low  enough  to  ensure  that  the 
drain  box  to  the  bilge  does  not  overflow.  The  fill 
valve  is  the  valve  located  to  the  left  of  the  boiler 
switchboard  near  the  wall. 

5.  Perform  a  leak  test  on  the  water  systems. 

a.  Check  the  cooling  system  again  for  leaks. 

b.  Open  the  water  flow  control  valve  to  the  auxiliary 
condenser  and  adjust  the  flow  rate  to  at  least  30% 
and  check  for  leaks.  If  no  leaks  are  present, 
reset  the  flow  rate  to  at  least  10%. 

6.  If  the  system  was  open  to  the  atmosphere,  place  the 
system  under  a  vacuum.  To  do  this,  shut  the  drain 
valve  in  the  plexiglas  container  and  energize  the 
vacuum  pump.  After  the  pressure  gage  for  the  vacuum 
pump  on  the  plexiglas  container  reaches  24  inches  of 
vacuum,  open  the  suction  valve  located  on  the  side  of 
the  auxiliary  condenser.  If  the  pressure  in  the  test 
apparatus  does  not  drop  below  8  psia,  check  the 
atmospheric  valve  to  the  auxiliary  condenser  and  the 
vacuum  drain  valve  below  the  plexiglas  container  and 
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ensure  they  are  closed.  After  the  pressure  is  below  3 
psia,  shut  the  vacuum  suction  valve  and  secure  the 
vacuum  ptimp. 


7.  To  energize  the  heaters,  three  switches  must  be  shifted 
"ON": 

a.  Switch  #3  on  panel  pnl  5  located  on  the  right  hand 
wall  of  the  hallway  to  the  machine  shop. 

b.  The  heater  load  bank  circuit  breaker  is  on  the  left 
side  of  the  electrical  switchboard  behind  the  HP 
computer  desk. 

c.  The  condensing  rig  boiler  power  supply  switch  is  on 
the  front  of  the  electrical  switchboard. 

The  power  supply  in  pnl  5  is  left  on.  To  start >up  the  boiler, 
flip  the  load  bank  circuit  breaker  to  "ON".  The  voltmeter 
should  indicate  100  volts.  Ensure  the  resistance  control  knob 
is  turned  completely  to  the  left.  The  control  knob  is  located 
below  and  to  the  right  of  the  voltmeter.  Next,  shift  the 
boiler  power  supply  switch  on.  The  voltage  indication  should 
go  to  zero.  If  not,  secure  the  switches  and  contact  an 
electrical  technician.  Adjust  the  voltage  to  50  volts  using 
the  control  knob.  If  the  system  is  below  2  psia,  adjust  the 
power  level  to  40  volts  for  initial  start-up.  The  system  is 
started  at  a  low  power  level  to  minimize  the  vibrational  shock 
to  the  system  from  vapor  bubble  formation  and  collapse.  As 
the  system  warms  up,  the  power  can  be  increased,  in  increments 
of  10  volts,  u'  1  the  desired  setting  is  reached. 

8.  After  the  system  pressure  rises  above  4  psia,  air  and 
other  non-condensible  gases  must  be  purged  from  the 
system.  This  is  accomplished  by  following  the 
procedures  outlined  in  step  6.  When  the  Pyrex  glass 
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container  around  the  auxiliary  condenser  is  warm  to  the 
touch,  most  of  the  non-condensible  gases  have  been 
removed.  The  purging  procedure  can  not  be  done  with 
both  cooling  water  pumps  on  the  line.  The  large  power 
load  will  trip  the  power  supply  breaker  in  the  panel 
outside  the  door  to  the  lab.  The  initial  purge  takes 
about  15  -  20  minutes.  The  purging  process  should  be 
repeated  every  few  hours  during  extended  operations. 

9.  The  filmwise  condensation  established  during  the  tube 
installation  should  still  exist.  If  not,  the  following 
procedure  must  be  followed  to  establish  filmwise 
condensation: 

a.  Secure  cooling  water  to  the  tube  and  the  auxiliary 
condenser.  Allow  the  system  vapor  temperature  to 
increase  to  at  least  3800  microvolts,  on  channel 
40. 

b.  Increase  the  flow  rate  in  the  auxiliary  condenser 
to  50%  and  allow  the  vapor  temperature  to  decline 
to  3200  microvolts. 

c.  Secure  coolant  flow  to  the  auxiliary  condenser  and 
allow  the  vapor  temperature  to  increase  to  about 
3700  microvolts.  This  forms  a  steam  blanket  over 
the  tube. 

d.  Initiate  cooling  water  flow  to  the  horizontal  tube 
at  a  flow  rate  of  80%. 

e.  Start  the  flow  to  the  auxiliary  condenser  at 
maximum.  Adjust  the  flow  rate  to  maintain  desired 
pressure  and  temperature. 


If,  after  performing  these  steps,  some  dropwise 
condensation  persists,  repeat  step  (9)  again.  If  dropwise 
condensation  continues,  the  tube  should  be  removed,  cleaned 
and  retreated.  Notes  should  be  made  of  locations  of  machine 
tool  marks.  They  can  give  the  appearance  of  dropwise 
condensation  if  they  are  retaining  condensate. 

10.  Press  the  "RUN"  key  on  the  keyboard  to  activate  the 
DRPALL  program.  The  program  will  prompt  you  with 
questions  for  the  necessary  data  information.  A  copy 
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of  the  data  collection  program  is  listed  in  Appendix  A. 


11.  Ensure  the  system  has  been  operating  at  steady  state 
condition  for  at  least  30  minutes  prior  to  continuing 
past  the  statement  "ENTER  FLOWMETER  READING".  Several 
variables  must  be  monitored  at  the  same  time.  Each 
operator  must  obtain  a  feel  for  the  equipment  to 
determine  a  steady  state  condition.  The  pressure  input 
into  the  program  is  only  a  visual  reference  and  is  not 
used  in  the  program  calculations.  A  steady  state 
condition  is  defined  as  a  good  agreement  in  the 
following  printouts:  pressure  (Ptran^Psat) ,  temperature 
differential  ( quart z,T-pile,  thermocouple)  and  the 
overall  heat  transfer  coefficient  (U^)  from  the 
previous  data  run  printout.  The  difference  between  the 
pressure  readings  for  the  transducer  and  the  voltage 
conversion  should  be  less  than  0.5  kPa  and  0.1  kPa  from 
the  previous  run.  The  three  temperature  differentials 
should  be  within  .01°C  of  the  previous  run  and  within 
.05°C  of  each  other.  The  overall  heat  transfer 
coefficient  should  be  within  100  (W/ (m^K) )  of  the 
previous  data  run. 

12.  For  vacuum  runs,  the  control  setting  on  the  voltmeter 
is  90  volts.  Channel  40  on  the  data  acquisition  system 
should  be  1980  ±  10  microvolts.  This  corresponds  to  T,,^ 
»  48°C,  and  a  vapor  velocity  of  »  2  m/s. 

13.  For  atmospheric  runs,  the  control  setting  on  the 

voltmeter  is  175  volts  and  channel  40  on  the  data 
acquisition  system  is  4280  ±  10  microvolts.  This 
corresponds  to  T^^^  »  100°C,  and  a  vapor  velocity  of  « 

1  m/s.  Special  care  must  be  used  when  operating  at 
atmospheric  pressure  to  ensure  overpressurization  and 
rupture  does  not  occur. 

14.  If  both  vacuum  and  atmospheric  runs  are  to  be  conducted 
on  the  same  day,  the  vacuum  run  should  be  conducted 
first.  This  eliminates  the  long  cool  down  time 
required  after  an  atmospheric  pressure  run. 


The  system  should  be  secured  using  the  following 
procedures : 

1.  Secure  power  to  the  heating  elements.  Turn  the  voltage 
control  knob  completely  to  the  left.  The  voltage 
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indication  on  the  voltmeter  should  be  zero.  Shift  the 
boiler  supply  power  switch  to  "OFF”.  The  voltage 
indication  on  the  voltmeter  should  rise  to  100  volts. 
Press  the  power  supply  breaker  to  ”OFF”  and  reinstall 
the  safety  bar. 

2.  Secure  coolant  flow  to  the  auxiliary  condenser.  If  the 
system  is  to  remain  at  vacuum  pressure  until  the  next 
data  run,  then  the  auxiliary  condenser  can  be  used  in 
assisting  to  cool  the  system  down,  provided  the  same 
tube  will  be  used  for  testing. 

3.  Secure  the  coolant  flow  to  the  tube  by  shutting  the 
inlet  valve  and  securing  the  coolant  pumps. 

4.  Secure  the  water  flow  to  the  coolant  water  sump  tank. 

5.  Return  the  system  to  atmospheric  pressure  unless  a 
system  pressure  leakage  test  is  being  performed.  Open 
the  vent  valve  on  the  auxiliary  condenser  slowly.  Keep 
all  foreign  material  away  from  the  vicinity  to  avoid 
contaminating  the  system. 

6.  In  case  of  any  abnormal  conditions  or  an  emergency, 

SECURE  THE  BOILER  POWER  FIRST. 


C.  DATA  PROGRAMS 

The  computer  programs  DRPALL  and  HEATCOBB  were  used  to 
collect,  store,  and  process  the  test  data  for  analysis. 
DRPALL,  a  revision  of  the  basic  HP  program,  calculated  and 
stored  the  raw  data.  HEATCOBB,  a  FORTRAN  program,  was  written 
to  reprocess  the  raw  data  for  theoretical  model  comparison. 

The  DRPALL  program  used  a  series  of  internal  program 
functions  to  convert  voltage  inputs  from  the  data  acquisition 
unit  and  the  quartz  thermometer  into  raw  data.  Raw  data  were 
calculated  from  both  direct  and  indirect  measured  values.  The 
overall  thermal  resistance  for  the  heat  transfer  from  the 
vapor  to  the  cooling  water  is  the  sum  of  the  vapor  side  (R^)  , 
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the  tube  wall  (R^) ,  and  the  coolant  side  (Rj)  resistances. 
Since  the  tubes  were  cleaned  prior  to  testing,  the  fouling 
resistance  was  negligible,  (R^  -  0).  The  total  resistance  can 
therefore  be  represented  as  equation  (4.1): 

^totsl  ~^i  (4.1) 


where , 


1 

Mi 


(4.2) 


1 


(4.3) 


2nLkc 


(4.4) 


The  effective  area  for  the  inside  of  the  tube  represents  the 
entire  length  of  the  tube.  The  portions  of  the  tube  that  do 
not  contain  fins  were  used  to  support  the  tube  and  act  as  fins 
extended  in  the  axial  direction.  They  transfer  additional 
heat  to  the  inlet  and  outlet  portion  of  the  tube.  The 
effective  inside  surface  area  is  represented  as: 
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(4.5) 


The  fin  efficiencies  (ij,  and  ijj)  for  their  respective  entrance 


lengths  are: 


ni= 


tanh{mil.i) 


(4.6a) 


»l2  = 


tanh  {;?^I.2) 

iT^Lj 


(4.6b) 


where , 


(4.7a) 


(4.7b) 


and  Pj  are  the  fin  perimeters  and  A,  and  Aj  are  respective 
the  cross  sectional  areas.  The  actual  outside  surface  area, 
the  tube  length  exposed  to  steam,  varies  with  each  machined 
spacing  between  each  fin.  Therefore  the  effective  outside 
area  was  assumed  to  be: 
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(4.8) 


The  overall  thermal  resistance  can  be  related  to  the  overall 
heat  transfer  coefficient  (U^)  and  the  effective  outside  area 
(Ao) 

=  (4.9) 


Substituting  equations  (4.2),  (4.3),  and  (4.9)  into  equation 
(4.1)  gives: 


1 


1 


*R  + 


1 


(4.10) 


The  heat  transfer  rate,  Q,  can  be  calculated  from  the  measured 
inlet  and  outlet  temperatures  and  the  mass  flow  rate  of  the 
cooling  water  through  the  test  tube. 

0=ihCp{T^-T^)  (4.11) 

Using  the  energy  balance  for  a  control  volume,  the  heat 
transfer  rate  can  be  expressed  in  terms  of  the  overall  heat 
transfer  coefficient  (U^,) : 

0=U^^{LMTD)  (4.12) 

Where  the  log  mean  temperature  difference,  LMTD,  is: 
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r^-T, 


(4.13) 


LMTD= 


The  inlet  (T,)  and  outlet  (Tj)  cooling  water  temperatures  were 
measured  directly  with  the  quartz  thermometer  and  the 
saturation  temperature  measured  using  the  vapor 
thermocouple  (channel  40)  from  the  data  acquisition  unit.  The 
specific  heat  of  the  coolant  at  constant  pressure  (c^)  was 
determined  from  the  bulk  mean  temperature  of  the  cooling 
water.  In  addition,  a  correction  factor  was  used  to  account 
for  the  viscous  heating  of  the  coolant  through  the  test  tube 
with  a  heatex  insert;  the  correction  equations  are  located  in 
Appendix  B. 

Once  the  total  heat  transfer  rate  has  been  calculated,  the 
overall  heat  transfer  coefficient  can  be  calculated  by  using 
equation  (4.12).  The  only  two  unknowns,  the  inside  heat 
transfer  coefficient  (h^)  and  outside  heat  transfer 
coefficient  (h,,) ,  are  computed  using  the  Modified  Wilson  Plot 
Technique . 

The  Modified  Wilson  Plot  Technique  uses  the  overall  heat 
transfer  coefficient  determined  from  the  experimental  data  to 
determine  the  inside  and  outside  heat  transf'^r  coefficients. 
The  technique  uses  an  assumed  leading  coefficient  for  the 
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inside  and  outside  heat  transfer  coefficients  and  iterates  to 
determine  the  unknown  heat  transfer  coefficients.  Briggs  and 
Young  [Ref.  32]  explain  this  technique  in  detail.  The  two 
forms  of  the  equations  used  are: 

For  the  outside  heat  transfer  coefficient, 


ho=a\ 


1/4 


=aZ 


(4.14) 


Where  a  is  a  dimensionless  Nusselt  coefficient  [Ref.  16]. 
For  the  inside  heat  transfer  coefficient. 


(4.15) 


All  data  were  taken  using  the  Petukhov-Popov  correlation  [Ref. 
33]  for  the  inside  heat  transfer  coefficient.  Therefore, 


(4.16) 


where : 

€=  [1 . 821og  (Re) -1 .64]  (4.17) 
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(4.18) 


^i=1+3.4€ 


J^=11.7+1.8Pr-i/3 


(4.19) 


Substituting  equations  (4.14)  and  (4.15)  into  equation  (4.10) 
and  rearranging  the  terms  gives: 


(4.20) 


Letting: 


y= 


\z 


(4.21) 


- 


(4.22) 


(4.23) 


and 


(4.24) 
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resulted  in  a  simple  linear  actuation : 


y=inX*b 


(4.25) 


The  parameters  n  and  Z  are  temperature  dependent,  so  an 
iterative  procedure  must  be  used  to  solve  the  equations.  A 
least  squares  fit  of  equation  (4.25)  was  used  to  determine  C, 
and  a.  The  inside  heat  coefficient  could  now  be  determined 
from  equations  (4.15)  and  (4.16).  With  the  inside  heat 
transfer  coefficient  and  the  overall  heat  transfer  coefficient 
determined,  the  outside  heat  transfer  coefficient  can  be 
solved  using  equation  (4.10). 

The  conditions  for  a  data  run  cannot  be  exactly 
reproduced,  resulting  in  a  variation  between  C,  and  a  values 
between  runs  for  the  same  tube. 

From  Nusselt  theory,  the  heat  flux  (q)  based  on  the 
outside  area  can  be  shown  as: 

g-aATy*  (4.26) 


where : 


a=a 


kfp^h 


a 


(4.27) 


and 
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(4.28) 


q=h^Tf 


where: 


h^-aATf^^* 


(4.29) 


The  enhancement  ratio  based  on  a  constant  temperature  drop 
across  the  condensate  film,  can  be  expressed  as: 


(4.30) 


The  enhancement  ratio  for  constant  (AT)  can  be  defined  as  the 
improvement  in  the  heat  transfer  rate  of  a  finned  tube 
compared  to  the  heat  transfer  rate  of  a  smooth  tube  with  an 
outside  diameter  equal  to  the  root  diameter  of  the  finned  tube 
for  the  same  temperature  difference. 

The  Fortran  program,  HEATCOBB  listed  in  Appendix  C,  used 
the  experimental  values  for  the  vapor,  condensate  film,  and 
the  differential  temperatures  to  solve  for  an  outside  heat 
transfer  coefficient.  The  outside  heat  transfer  coefficient 
determined  from  equation  (1.1),  the  Beatty  and  Katz 
correlation,  was  obtained  by  iterating  the  fin  efficiency  for 
the  material  and  assuming  an  initial  outside  heat  transfer 
coefficient.  This  heat  transfer  coefficient  used  the 
effective  area  of  the  fin  A^^  so  that  a  correction  factor  must 
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be  applied  to  it  the  heat  transfer  coefficient  in  order  to 
compare  it  with  the  outside  heat  transfer  coefficient  obtained 
during  this  thesis.  The  correction  factor  was  the  ratio  of 
the  effective  area  divided  by  the  area  of  a  smooth  tube  having 
a  diameter  equal  to  the  root  diameter  of  the  finned  tube.  The 
heat  transfer  rate  Q,  can  be  expressed  as  follows: 

(4.31) 

where  h^^  and  were  determined  from  equations  (1.1)  and 
(1.4),  respectively;  or  in  terms  of  the  outside  area  A^: 

Q^h^^AT.  (4.32) 

By  substituting  and  rearranging  equations  (4.31)  and  (4.32), 
the  outside  heat  transfer  coefficient  using  the  Beatty  and 
Katz  correlation  was  modified  to  get: 

•  (4.33) 


During  this  thesis,  the  enhancement  ratio  was  defined  by 
dividing  the  outside  heat  transfer  coefficient  for  the  finned 
tube  by  the  outside  heat  transfer  coefficient  for  a  smooth 
tube  from  Nusselt  theory  as: 


*NU88 


(4.34) 
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As  shown  in  Chapter  II,  the  efficiency  of  a  fin,  equation 
(2.7),  changes  with  the  fin  profile  area  Ap.  For  this  thesis, 
the  profile  area  for  a  radiussed  root  finned  tube  was 
calculated  from  equation  (4.35): 


and  the  fin  efficiency  was  determined  by  substituting  this 
profile  area  into  equation  (2.8).  The  total  surface  area  of 
a  radiussed  root  finned  tube  decreases  compared  to  a 
rectangular  shaped  finned  tube  but  the  profile  area  increases. 
This  increase  in  profile  area  decreases  the  value  of  in 
equation  (2.8),  and  as  seen  in  Figure  (2.2),  the  fin 
efficiency  will  increase. 

Also  in  the  Fortran  program,  HEATCOBB,  the  basic 
enhancement  ratio  for  constant  (AT)  as  proposed  by  Rose  [Ref. 
8],  equation  (2.36),  was  modified.  The  fin  efficiency 
determined  in  the  Beatty  and  Katz  model  was  applied  to  the 
unblanked  surfaces  of  the  fin.  The  enhancement  ratio  for  a 
rectangular  shaped  finned  tube  becomes: 
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Unlike  a  rectangular  shaped  finned  tube,  in  the  case  of  a 
radiussed  root  finned  tube,  the  unflooded  (ie,  the  region  from 
the  top  of  the  tube  to  a  point  where  the  whole  of  the  flank  is 
just  wetted  and  where  the  condensate  film  at  the  center  of  the 
interfin  space  has  a  finite  thickness)  surface  areas  of  the 
fin  flank  and  the  radiussed  root  do  not  have  any  condensate 
"wedge”  blanking  them  off.  The  condensate  flooding  angle  0 
was  still  calculated  from  equation  (1.8)  and  the  estimated 
fraction  of  the  fin  flanks  and  radiussed  interfin  space 
blanked  by  condensate,  f^  and  f^,  was  set  equal  to  zero.  The 
enhancement  ratio  for  a  radiussed  root  finned  tube  becomes 
equation  (2.20): 

^xr^QtlOs 


where  the  numerator  is: 

Of =2  n  rj  tq,r\  12  7t|r|  -|r ,  *  2  u  1  |i  - 1 J  Jg^T]  j 

(4.37) 


and  the  denominator  is  given  by  equation  (2.22).  In  equation 

(4.37),  the  heat  flux  for  the  interfin  space  was  varied  from 
equation  (2.25)  to  account  for  the  changing  geometry  along  the 
radiussed  root: 


gs= 
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As  mentioned  in  Chapter  II,  the  Rose  [Ref.  8]  model 
required  that  the  constants  B,,  and  B^  be  specified. 
The  value  of  all  these  constants  will  vary  with  the  tube 
material  and  fin  geometry.  They  cannot  be  determined 
accurately  until  more  data  is  obtained  for  a  variety  of 
radiussed  root  finned  tubes.  This  thesis  therefore  used  the 
B-values  determined  by  Rose  [Ref.  8].  The  heat  flux  for  the 
fin  tip  was  still  defined  as  in  equation  (2.27)  and  for  the 
fin  flanks  equation  (2.24)  was  used.  However,  the  fin  height 
was  modified  as  noted  below: 


h=J?2 


(4.39) 


Using  equations  (4.37),  (4.38)  and  (4.39),  equation  (2.20)  can 
be  used  to  find  the  enhancement  ratio,  for  a  radiussed  root 
finned  tube. 
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V.  RB8ULT8  AMD  OZSCUSSZOV 


A.  QMKEBXL  DZ8CUS8Z0H 

Experimental  data  were  taken  as  described  in  Chapter  IV. 
A  short  format  version  of  the  data  printout  for  the  tubes 
tested  is  contained  in  Appendix  D.  The  tube  numbers  are 
listed  in  TABLE  II  in  Chapter  III  along  with  their  respective 
geometries.  Nomenclature  for  the  data  runs  are  as  follows. 
The  first  two  letters  are  the  run  condition,  i.e.  AT  for 
atmospheric  and  VT  for  vacuum  condition;  the  two  niunbers  or 
group  of  letters  are  the  tube  number  from  TABLE  II;  and,  the 
last  number  is  the  run  number.  For  example,  the  nomenclature 
”VT094"  means  that  this  is  the  fourth  data  run  for  tube  number 
9,  a  rectangular  shaped  finned  tube  made  of  stainless 
steel (316),  under  vacuum  condition. 

The  cooling  water  flow  rate  settings  for  atmospheric 
condition  data  runs  were  from  80  to  20  percent  of  the 
rotameter  scale  in  increments  of  10  percent;  the  procedure  was 
then  reversed  back  to  80  percent.  This  procedure  could  not  be 
followed  for  the  vacuum  runs  because  of  the  inability  to 
maintain  the  required  temperature  and  pressure  setting  for  a 
complete  data  set.  The  problem  maintaining  the  set  points  was 
attributed  to  the  long  settling  time  between  data  points  and 
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the  cooling  effects  of  the  environment  surrounding  the  test 
apparatus.  In  the  early  data  sets,  it  took  about  45  minutes 
to  reach  a  steady  state  condition  described  in  Chapter  IV. 
This  resulted  in  a  13  to  15  hour  data  taking  session.  Several 
attempts  were  made  to  reduce  the  run  time.  One  attempt  was  to 
secure  the  augmenting  tap  water  to  the  cooling  water  sump  for 
the  test  tube.  Increasing  the  temperature  of  the  cooling 
water  flowing  through  the  test  tube  reduced  the  temperature 
difference  across  the  test  tube  and  the  amount  of  steam 
condensed  by  the  test  tube.  This  increased  the  amount  of 
steam  to  be  condensed  by  the  auxiliary  condenser  and  increased 
the  control  of  the  temperature  and  pressure  settings. 
However,  this  reduced  the  range  of  the  temperature  difference 
for  the  data  obtained.  The  other  attempt  was  to  change  the 
sequence  of  the  data  by  changing  the  cooling  water  flow  rate 
through  the  test  tube.  The  sequence  was  changed  to  80  ,  20, 
70  ,  30,  60,  40,  50  (2),  40,  60,  30,  70,  20  and  then  back  to 
80  percent  instead  of  the  procedure  as  described  for  the 
atmospheric  conditions.  The  data  obtained  from  this  procedure 
where  compared  to  previous  runs  for  consistency  and 
repeatability.  There  were  no  noticeable  variations;  thus, 
this  procedure  was  used  for  the  remaining  vacuum  data  runs. 

The  condensate  film  was  checked  as  described  in  Chapter 
IV.  During  the  purging  operations,  the  condensate  film  was 
re-verified  and  the  data  collection  process  continued  if  the 
condensate  film  was  intact.  The  revised  chemical  treatment 
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solution,  as  stated  in  Chapter  IV,  produced  filmwise 
condensation  on  the  same  tubes  weeks  after  testing. 

Great  care  and  attention  to  detail  were  taken  to  obtain 
good  reliable  data.  With  all  experiments,  everything  cannot 
be  accounted  for,  leading  to  uncertainties  in  the 
measurements.  The  uncertainty  calculations  obtained  for 
randomly  chosen  data  points  are  contained  in  Appendix  E  and  do 
not  account  for  air  and  other  non-condensible  gases  or 
possible  dropwise  condensation  conditions  over  any  portion  of 
the  test  tube. 

B.  SMOOTH  TUBE  RESULTS 

The  overall  heat  transfer  coefficient  for  a  given  outside 
diameter  depends  on  the  tube  material.  Equations  (4.1)  and 
(4.9)  relate  the  overall  heat  transfer  coefficient  to  the 
total  resistance.  As  the  wall  resistance  decreases,  the 
overall  heat  transfer  coefficient  increases.  Figures  5.1  and 
5.2  show  the  overall  heat  transfer  coefficient  versus  velocity 
behavior  for  copper  tubes  under  atmospheric  and  vacuum 
conditions,  respectively.  Two  tubes  were  used,  with  slightly 
different  diameters.  Thus  the  wall  resistance  (R^^)  was  about 
the  same  for  each  tube.  Using  a  Heatex  insert  improved  the 
accuracy  of  the  data  taken  by  reducing  the  influence  of  the 
inside  resistance  (R^)  on  the  overall  heat  transfer 
coefficient.  The  data  show  that  the  outside  resistance  (R^) 
must  dominate  the  overall  heat  transfer  resistance  since,  as 
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cooling  water  velocity  increases,  the  overall  coefficient 
remains  constant.  In  addition,  the  results  appear  to  be 
independent  of  operating  pressure. 

Comparing  Figures  5.1  and  5.3  for  runs  ATSMTHl  and  ATSMTH3 
which  had  the  same  outside  diameter  tube  (D^=14 . 38mm) ,  the 
outside  heat  transfer  coefficient  (h^)  is  nearly  constant  over 
the  range  of  temperature  differences  (Ts-Tw) .  The 
corresponding  overall  heat  transfer  coefficients  in  Figure  5.1 
change  very  slightly,  again  indicating  that  the  outside 
resistance  is  the  controlling  resistance. 

From  Nusselt  theory,  the  outside  heat  transfer  coefficient 
is  independent  of  tube  material.  Experimentally  obtained 
smooth  tube  data  were  compared  to  the  data  of  Guttendorf  [Ref. 
13]  who  used  a  copper  tube  and  Long  [Ref,  34]  who  used 
titanium.  It  appears  that  the  Guttendorf  data  is  high  (about 
14%)  and  the  Long  data  is  low  (about  4%).  This  is  due 
partially  to  the  different  diameters  used.  Since  the  Nusselt 
theory  predicts  that  the  outside  heat  transfer  coefficient, 
h^j,  is  proportional  to  then  the  diameters  will  influence 
the  measured  result.  In  addition,  Guttendorf  used  a  twisted 
tape  insert  (i.e.,  a  small  rectangular  shaped  wire  twisted 
around  a  metal  rod  in  a  spiral  manner)  vice  a  wire  mesh  insert 
as  used  in  this  thesis.  A  similar  comparison  was  made  for 
vacuum  conditions.  Since  the  outside  heat  transfer 
coefficient  for  a  smooth  tube  is  independent  of  wall  material. 
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all  finned  tube  data  were  compared  to  the  smooth  tube  data 
taken  for  the  copper  tube. 

C.  RBCTMIOULAR  SHAPED  FIMNED  TUBE  RESULTS 

Figure  5.4  shows  the  data  of  the  overall  heat  transfer 
coefficient  (U^)  versus  cooling  water  velocity  (Vw)  for 
rectangular  shaped  finned  tubes  of  copper,  aliminum,  copper 
nickel,  and  stainless  steel  at  atmospheric  conditions.  In 
addition,  smooth  tube  data  for  copper  and  titanium  are 
provided  for  comparison. 

Comparing  the  four  rectangular  shaped  finned  tubes,  as  the 
thermal  conductivity  (k^)  increases,  the  overall  heat  transfer 
coefficient  increases.  At  a  cooling  water  velocity  of  3.5 
m/s,  the  ratio  of  the  overall  heat  transfer  coefficient  for 
copper  to  stainless  steel  (U^(Cu) /U^^CSS) )  is  2.6.  Since  the 
dimensions  of  these  tubes  are  the  same,  this  significant 
enhancement  is  due  to  1)  a  smaller  wall  resistance  to  base  of 
the  fins  for  copper  and  2)  a  smaller  wall  resistance  of  the 
fins  themselves.  Both  effects  combine  to  determine  the  inside 
heat  flux. 

For  low  thermal  conductivity  material  (i.e.,  stainless 
steel) ,  the  overall  heat  transfer  coefficient  is  roughly 
constant  for  changing  velocities.  This  indicates  that  the 
outside  resistance  (R^)  is  controlling  the  overall  heat 
transfer  coefficient.  As  the  thermal  conductivity  increases, 
the  overall  heat  transfer  coefficient  increases  with  cooling 
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water  velocity,  implying  that  the  outside  resistance  is  not 
controlling  the  overall  heat  transfer  coefficient  as  much 
(i.e.,  the  inside  resistance  (R^)  is  also  important). 

The  heat  transfer  enhancement  of  the  finned  tube  increases 
with  the  thermal  conductivity  of  the  tube  material.  Comparing 
the  overall  heat  transfer  coefficient  of  the  copper  finned 
tube  to  the  copper  smooth  tube,  the  heat  transfer  enhancement 
for  the  3.5  m/s  cooling  water  velocity  is  2.3.  The 
enhancement  at  the  same  cooling  water  velocity  for  stainless 
steel  is  only  1.3  (since  the  thermal  conductivity  for 
stainless  steel  is  about  the  same  as  titanium,  the  titanium 
smooth  tube  data  of  Long  (D^=15. 85mm) was  used).  It  is  clear 
that  for  higher  thermal  conductivity  materials,  fins  help 
considerably  to  improve  the  performance  of  the  tube,  but  for 
lower  thermal  conductivity  materials  there  is  a  small 
influence.  Similar  (but  reduced)  trends  exist  under  vacuum 
conditions  as  shown  in  Figure  5.5. 

The  data  obtained  during  this  thesis  for  copper 
rectangular  shaped  finned  tubes  are  compared  to  previous  data 
in  Figures  5.6  and  5.7,  for  atmospheric  and  vacuum  conditions 
respectively.  Flook  [Ref.  35]  tested  a  finned  tube  with  the 
same  dimensions  as  used  in  this  thesis  except  it  had  a  root 
diameter,  D^,  of  13.7mm.  He  used  a  twisted  tape  insert  along 
with  the  Seider-Tate  [Ref.  36]  correlation  for  the  inside  heat 
transfer  coefficient,  h,.,  to  obtain  his  data.  The  Seider-Tate 
[Ref.  36]  relationship  is: 
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When  this  correlation  was  compared  to  the  Petu)chov-Popov 
correlation  by  Incropera  and  Dewitt  [Ref.  15],  the  Petukhov- 
Popov  correlation  was  found  to  be  the  most  accurate. 
Therefore,  the  Guttendorf  [Ref.  13]  and  Van  Petten  [Ref.  12] 
raw  data  were  reprocessed  using  the  Petukhov-Popov  [Ref.  32] 
inside  heat  transfer  correlation.  Guttendorf  and  Van  Petten 
tested  tubes  with  an  inside  diameter,  D^,  of  9.53mm  and  root 
diameter,  D^,  of  12.7mm.  The  fin  height,  spacing  and 
thickness  were  the  same  as  the  rectangular  shaped  finned  tubes 
used  in  this  thesis.  They  also  used  the  twisted  tape  insert 
which  was  described  earlier.  As  plotted  in  Figures  5.6  and 
5.7,  the  data  obtained  during  this  thesis  fell  between  the 
data  of  the  previous  researchers.  With  the  different  tube 
diameters  and  inserts  used,  little  additional  comparison  can 
be  made.  The  Flook  data  could  be  erroneously  high  since  his 
data  were  taken  after  Holden  [Ref.  37]  completed  his  thesis  on 
the  use  of  an  organic  coating  to  promote  dropwise  condensation 
of  steam  on  horizontal  tubes  in  the  test  apparatus.  Some  of 
the  dropwise  promoter  may  have  been  retained  in  the  test 
apparatus  during  the  measurements  of  Flook,  causing  dropwise 
condensation  on  the  test  tube  vice  filmwise.  The  data  of 
Guttendorf  and  Van  Petten  were  also  obtained  after  Holden. 


65 


The  actual  reason  for  the  variation  in  data  is  not  known.  The 
data  obtained  in  this  thesis  could  be  low  because  of  the 
presence  of  air  and  other  non-condensible  gases.  However, 
care  was  taken  to  remove  these  gases.  All  the  data  are  within 
an  uncertainty  of  ±  20%  for  the  same  tube  geometry  and  tube- 
side  insert.  Additional  data  should  be  taken  with  the  same 
geometry  and  inserts  to  establish  more  accurate  trends  for 
comparison. 

Mitrou  [Ref.  14]  tested  rectangular  shaped  finned  tubes  of 
aluminum  and  copper  nickel.  Like  Flook  [Ref.  35],  he  also 
followed  Holden  [Ref.  37]  in  conducting  his  studies  in  the 
test  apparatus.  Since  these  earlier  thesis  studies,  Swensen 
[Ref.  10]  modified,  disassembled,  and  cleaned  the  test 
apparatus  to  improve  the  accuracy  of  the  data  taken.  Mitrou 's 
fin  dimensions  were  identical  to  Flook' s  copper  tube. 
Mitrou' s  data  were  also  reprocessed  during  this  thesis  using 
the  Petukhov-Popov  inside  heat  transfer  coefficient 
correlation,  but  he  used  the  twisted  tape  insert.  Mitrou' s 
data  for  aluminum  and  copper  nickel  finned  tubes  at 
atmospheric  conditions  are  plotted  in  Figures  5.8  and  5.9 
respectively.  Similar  to  Flook 's  data,  the  Mitrou  results  are 
higher  than  those  found  in  this  thesis.  It  is  obvious  from 
these  figures  that,  although  the  exact  magnitude  for  a  given 
material  may  be  uncertain,  the  outside  heat  transfer 
coefficient  is  influenced  by  the  thermal  conductivity  of  the 
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tube  material.  This  pattern  holds  for  vacuum  conditions  also, 
as  shown  in  Figure  5.10. 

Figure  5.11  summarizes  the  experimentally  obtained  outside 
heat  transfer  coefficient  data  versus  the  temperature 
difference  between  the  vapor  and  the  outer  tube  wall  (Ts-Tw) . 
The  outside  heat  transfer  coefficient  increases  as  the  thermal 
conductivity  of  the  finned  tube  material  increases,  implying 
that  it  is  not  desirable  to  fin  a  low  conductivity  tube.  As 
discussed  earlier  for  the  overall  heat  transfer  coefficient 
results,  this  is  due  to  1)  the  wall  resistance  to  the  fin  base 
and  2)  the  wall  resistance  of  the  fin  itself.  This  trend  can 
also  be  seen  by  overlapping  the  data  in  Figures  5.6,  5.8,  and 
5.9. 


D.  RAOIU88ED  ROOT  FINNED  TUBE  REEULTE 

Radiussing  the  root  of  the  rectangular  shaped  finned  tube 
is  designed  to  remove  retained  condensate  from  the  unflooded 
part  of  the  tube,  thus  improving  the  thermal  performance  of 
the  tube.  Figure  5.12  compares  overall  heat  transfer 
coefficient  data  of  rectangular  shaped  finned  tubes  to 
radiussed  root  finned  tubes  for  the  four  materials  studied  in 
this  thesis  at  atmospheric  conditions.  In  all  cases,  except 
for  stainless  steel,  radiussing  the  base  root  reduced  the 
finned  tube  performance  of  the  materials  tested.  Because  of 
the  poor  thermal  conductivity  of  stainless  steel,  the 
increased  fin  profile  area  by  radiussing  the  root  had  a 
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greater  inpact  on  the  fin  efficiency  than  for  the  higher 
thermal  conductivity  materials.  The  dispersion  in  the  overall 
heat  transfer  coefficient  data  was  greater  for  the  highest 
thermal  conductivity  material  (copper)  and  decreased  with 
thermal  conductivity. 

Figures  5.13  and  5.14  show  the  outside  heat  transfer 
coefficient  versus  the  temperature  difference  between  the 
vapor  and  the  outer  wall  (Ts-Tw)  at  atmospheric  conditions. 
Data  were  obtained  for  all  four  materials  as  well  as  for  deep 
and  shallow  radiussed  root  finned  tubes.  Figure  5.13  shows 
the  data  for  the  deep  radiussed  root  tubes  whereas  the  shallow 
radiussed  root  tubes  data  are  shown  in  Figure  5.14.  In  both 
figures,  the  influence  of  the  thermal  conductivity  of  the  tube 
material  can  be  seen.  As  the  thermal  conductivity  of  the  tube 
material  increases,  the  outside  heat  transfer  coefficient 
increases.  This  increase  in  the  heat  transfer  coefficient  is 
somewhat  sensitive  to  the  finned  tube  geometry,  as  can  be  seen 
when  comparing  the  two  figures. 

Figures  5.15  and  5.16  display  the  data  for  the  three  types 
of  finned  tube  geometries  used  during  this  thesis.  Two  tube 
materials  are  shown  in  each  figure.  Figure  5.15  contains 
copper  and  copper  nickel  outside  heat  transfer  coefficient 
data  whereas  Figure  5.16  shows  the  data  for  aluminum  and 
stainless  steel.  For  the  higher  thermal  conductivity  (copper) 
material,  the  data  were  higher  than  the  lower  thermal 
conductivity  (copper  nickel)  material  for  all  geometries.  For 
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both  materials,  the  outside  heat  transfer  coefficient 
decreased  in  going  from  a  rectangular  shaped  finned  tube  to  a 
radiussed  root  finned  tube.  The  root  diameter  of  the  shallow 
radiussed  root  finned  tube  (D^>b  I4.38mm)  is  larger  than  the 
root  diameter  13.88mm)  of  the  deep  radiussed  root  and 
rectangular  shaped  finned  tubes.  For  the  higher  thermal 
conductivity  materials,  (i.e.,  copper  and  aluminum)  the 
outside  heat  transfer  coefficient  for  the  shallow  radiussed 
root  finned  was  lower  than  the  deep  radiussed  root  finned 
tubes.  In  Figure  5.15  for  copper  nickel,  no  conclusions  can 
be  drawn  between  the  outside  heat  transfer  coefficient  for  the 
radiussed  root  finned  tubes.  For  stainless  steel  which  has 
the  lowest  thermal  conductivity,  the  data  in  Figure  5.16  show 
that  the  outside  heat  transfer  coefficient  appears  to  be  the 
same  regardless  of  the  external  fin  geometry. 

E.  HEAT  TRANSFER  ENHAMCEKENT 

As  described  earlier  in  Chapter  IV,  the  modified  Wilson 
Plot  procedure  curve  fits  the  raw  data  to  determine  a  leading 
coefficient  (C^)  and  an  alpha  (a)  value  for  the  inside  and 
outside  coefficients,  respectively.  TABLES  III  and  IV  contain 
the  averaged  leading  coefficients  and  alpha  values  obtained 
for  each  tube  tested  for  atmospheric  and  vacuum  conditions, 
respectively.  The  leading  coefficients  and  alpha  values 
changed  with  each  material,  but  no  particular  pattern  or  trend 
can  be  established.  For  example,  for  the  rectangular  shaped 
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finned  tubes,  as  the  tube  material  changes  from  copper  to 
stainless  steel,  the  leading  coefficient  for  the  inside  heat 
transfer  coefficient  (Ci)  changes  from  3.11  to  2.10.  This 
implies  that  circumferential  wall  conduction  may  be  important 
in  establishing  the  heat  flux  around  the  tube.  Additional 
runs  with  smooth  tubes  having  wall  thermocouples  are  required 
to  study  the  effect  of  the  tube  wall  material  on  the  leading 
coefficient  and  alpha  values. 

An  alternate  method  to  study  the  experimentally  obtained 
enhancement  is  to  compare  the  outside  heat  transfer 
coefficients  obtained  at  the  same  temperature  difference  (AT) . 
The  outside  heat  transfer  coefficient  data  at  a  temperature 
difference  of  30*K  for  atmospheric  conditions  and  12®K  for 
vacuum  conditions  are  listed  in  TABLES  V  and  VI.  The 
enhancement  ratio  for  atmospheric  conditions  for  the  four  tube 
materials  and  various  finned  tube  geometries  are  tabulated  in 
TABLE  VII  using  the  smooth  tube  outside  heat  transfer 
coefficient  as  the  baseline.  TABLE  VIII  provides  similar 
ratios  using  Nusselt  theory  as  the  baseline.  In  both  tables, 
the  enhancement  ratio  decreases  as  the  thermal  conductivity  of 
the  tube  wall  material  decreases.  By  radiussing  the  fin  root, 
the  enhancement  ratio  decreases  except  for  stainless  steel. 
TABLES  IX  and  X  contain  similar  enhancement  ratios  for  the 
four  materials  under  vacuum  conditions.  Similar  trends  are 
evident . 
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The  experimentally  obtained  film  temperature  differences 
were  used  to  obtain  enhancement  ratios  from  the  empirical 
models  of  Beatty  and  Katz  [Ref.  l]  and  Rose  [Ref.  8]|  for 
rectangular  shaped  finned  tubes.  Figure  5.17  presents  the 
predicted  enhancement  ratios  for  the  Beatty  and  Katz  model, 
equation  (4.34),  and  the  modified  Rose  model,  equation  (4.36), 
versus  the  change  in  fin  spacing  for  copper,  aluminum,  copper 
nickel,  and  stainless  steel  tubes  under  atmospheric 
conditions.  Figure  5.17  also  contains  the  average 
experimentally  obtained  enhancement  ratios  for  the  tubes 
studied  in  this  thesis  which  all  had  the  same  fin  spacing  of 
1.5mm.  Figure  5.18  shows  a  similar  comparison  under  vacuum 
conditions.  At  atmospheric  conditions,  the  predicted 
enhancement  ratios  from  the  Beatty  and  Katz  model  were  closer 
to  the  experimentally  obtained  enhancement  ratios  than  those 
predicted  by  the  modified  Rose  model.  But  under  vacutun 
conditions,  the  modified  Rose  model  predictions  were  closer, 
and  in  several  cases,  the  enhancement  ratios  were  identical  to 
the  data.  TABLES  XI  and  XII  tabulate  predicted  and 
experimental  enhancement  ratios  of  the  rectangular  shaped 
finned  tubes,  under  atmospheric  and  vacuum  conditions, 
respectively.  In  both  TABLES,  the  enhancement  ratio  decreases 
as  the  thermal  conductivity  of  the  tube  material  decreases,  as 
predicted  by  both  models. 

The  Rose  model  [Ref.  8]  was  further  modified  to  include  a 
radiussed  fin  root,  as  given  by  equation  (4.37).  Using  this 


71 


modified  model,  the  predicted  enhancement  ratios  were  compared 
to  the  average  experimental  heat  transfer  enhancement  ratios 
for  deep  radiussed  root  finned  tubes  in  TABLES  XIII  and  XIV. 
Clearly,  the  experimental  heat  transfer  enhancement  ratios  are 
significantly  lower  than  the  enhancement  ratios  predicted  by 
the  active  surface  areas.  TABLES  XV  and  XVI  contain  a  similar 
comparison  for  the  shallow  radiussed  root  finned  tubes. 

Figure  5.19  is  a  comparison  of  the  Masuda  and  Rose  model 
[Ref.  6]  (equations  2.14,  2.15,  2.37,  and  2.38)  for  the  total 
surface  area  and  active  surface  area  enhancement  ratios  for 
rectangular  shaped  and  radiussed  root  finned  tubes.  Using  the 
Fortran  Program  HEATCOBB,  the  surface  area  ratios  for  the 
copper  finned  tube  used  by  Briggs,  Wen,  and  Rose  [Ref.  28] 
were  reproduced  in  Figure  5.19.  Their  finned  tubes  had  a  fin 
height  of  1.59mm,  a  fin  thickness  of  0.5mm,  and  a  fin  spacing 
of  l.Orom  and  1.5mm  (although  numerous  theoretical  spacings  are 
included  in  Figure  5.19).  Their  tubes  had  as  inside  diameter 
of  9.53mm,  and  a  root  diameter  of  12.7mm.  In  Figure  5.19, 
comparing  the  curves  for  the  tube  dimensions  used  in  [Ref.  28] 
to  the  rectangular  shaped  finned  tube  dimensions  in  this 
thesis,  the  change  in  the  total  surface  area  from  a 
rectangular  shaped  finned  tube  to  a  radiussed  root  finned 
(equation  (2.14)  minus  equation  (2.37))  decreased  nearly  twice 
the  amount,  13.5%  to  8.9%  respectively.  Also,  the  increase  in 
the  active  surface  area  (equation  (2.38)  minus  equation 
(2.15))  was  less  for  the  finned  tube  in  this  thesis  compared 
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to  the  finned  tube  in  [Ref.  28],  43%  and  56%,  respectively. 
TABLE  XVII  is  a  comparison  of  the  experimentally  obtained  heat 
transfer  enhancement  ratios  (where  is  the  average 

enhancement  ratio  over  the  range  of  temperature  differences 
based  on  a  smooth  tube  of  root  diameter  for  the  rectangular 
shaped  finned  tube  and  ^  is  for  the  deep  radiussed  root 
finned  tube  of  the  same  root  diameter)  and  the  active  surface 
area  enhancement  ratios  (where  is  the  active  area 

enhancement  by  dividing  the  unblanked  finned  tube  surface  area 
by  the  surface  area  of  a  smooth  tube  of  root  diameter  and 
is  similar  but  for  the  deep  radiussed  root  finned  tube)  for 
rectangular  shaped  and  radiussed  root  finned  tubes.  The 
values  were  obtained  from  the  ratio  of  the  aplhas  listed  in 
TABLE  III.  Rose  et  al  (Ref,  28]  felt  that  the  small 
experimental  enhancement  from  radiussing  the  fin  based  root 
(1.09)  seemed  somewhat  anomalous  compared  to  the  higher  ratio 
of  1.53  obtained  from  the  active  surface  area  ratios,  and  the 
data  needed  to  be  repeated.  In  this  thesis  study,  the  ratio 
of  the  heat  transfer  enhancement  ratios  for  the  radiussed  root 
finned  tube  divided  by  the  rectangular  shaped  finned  tube  were 
less  than  one  whereas  the  ratio  of  the  active  surface  area 
enhancement  ratios  was  1.38.  This  can  be  attributed  to  many 
things,  including  less  total  surface  area  for  the  radiussed 
root  compared  to  [Ref.  28],  less  of  an  increase  in  active 
surface  area  when  compared  to  [Ref.  28],  the  actual  amount  of 
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condensate  retained  between  fins  of  different  geometries,  and 
the  actual  flooding  angle  for  the  radiussed  root  finned  tubes. 

Various  assumptions  have  been  made  in  analyzing  the  data 
obtained  in  this  thesis  study,  but  it  is  evident  that  more 
data  is  required  before  all  the  mysteries  associated  with  this 
complex  condensation  process  can  be  unravelled. 
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« 


Figure  5.1  Overall  Heat  Transfer  Coefficient  vs  Velocity 

for  Smooth  Tubes  made  of  Copper  Material  at 
Atmospheric  Conditions 
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OVERALL  HEAT  TRANSFER  COEFFICIENT  v«  VELOCITY  FOR  SMOOTH  TUBES 
MADE  OF  COPPER  MATERIAL  AT  VACUUM  CONDITION  (Dr-1SJImm) 


(on)  lN3IOIdi300  U33SNVm  1V3H  '11VU3AO 


Figure  5.2  Overall  Heat  Transfer  Coefficient  vs  Velocity 

for  Smooth  Tubes  made  of  Copper  Material  at 
Vacuum  Conditions  13.88mm) 
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Vw  (m/t) 


Figure  5.3  Comparison  of  Smooth  Tubes  at  Atmospheric 

Conditions  with  Different  Diameters  and 
Materials 
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(®n)  iN3l0ldi3O0  B3iSNVBl  1V3H  nVB3A0 


Figure  5.4  The  Overall  Heat  Transfer  Coefficient  vs 

Coolant  Velocity  for  Rectangular  Shaped  Finned 
Tubes  Various  Materials  at  Atmospheric 
Conditions  (the  effect  of  thermal 
conductivity) 
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Figure  5.5  The  Overall  Heat  Transfer  Coefficient  vs 

Coolant  Velocity  for  Rectangular  Shaped  Finned 
tubes  Various  for  Materials  at  Vacuum 
Conditions  (the  effect  of  thermal 
conductivity) 
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COMPARISON  OF  RECTANOULAR  SHAPED  FINNED  TUBES  TO  PREVIOUS 
FOR  COPPER  MATERIAL  AT  ATMOSPHERIC  CONDITIONS  (S-T.SEIDER  1 
(P-P.  PETUKHOV-POPOV)  (TT.  TWISTED  TAPE)  (WM)  WiflE  MESH] 


(»H)  INaiOlddiOO  H3d8NVUJ.  1V3H  3018X00 


Figure  5.6  Comparison  of  Rectangular  Shaped  Finned  Tubes 

to  Previous  Data  for  Copper  Material  at 
Atmospheric  Conditions  (S-T  (Seider  Tate)  and 
P-P  (Petukhov  Popov)  inside  correlations,  TT 
(Twisted  Tape)  and  WM  are  type  of  Inserts) 


(Tt  -  Tw)  (Of.  K) 


(OH}  lN3t0lii3O0  tr3iSNVUl  1V3H  3018100 


Figure  5.7  Comparison  of  Rectangular  Shaped  Finned  Tubes 

to  Previous  Data  for  Copper  Material  at  Vacuum 
Conditions  (S-T  (Seider  Tate)  and  P-P 
(Petukhov  Popov)  inside  correlations  and  TT 
(Twisted  Tape)  and  WM  (Wire  Mesh)  are  type  of 
Inserts) 
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(T*  .  Tw)  (<l»g.  K) 


(OH)  lN3IOIdd300  USdSNVUi  1V3H  30l8ino 


Figure  5.8  Comparison  of  Rectangular  Shaped  Finned  Tubes 

to  Previous  Data  for  Aluminum  Material  at 
Atmospheric  Conditions  (Mitrou  0^=  13.7mm)  (TT 
(Twisted  Tape)  and  WM  (Wire  Mesh)  are  type  of 
Inserts) 
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(Tt  ■  Tw)  (d«f.  K) 


(OH)  lN3l0ldd3O0  H33SNVUI 


J.V3H  3015100 


Figure  5.9  Comparison  of  Rectangular  Shaped  Finned  Tubes 

to  Previous  Data  for  Copper  Nickel  Material  at 
Atmospheric  Conditions  (Mitrou  0^.=  13. 7mm)  (TT 
(Twisted  Tape)  and  WM  (Wire  Mesh)  are  type  of 
Inserts) 
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(Tt  •  Tw)  (dog.  K) 


COMPARISON  OF  RECTANGULAR  SHAPED  FINNED  TUBES  TO  PREVIOUS  DATA 
FOR  COPPER  NICKEL  MATERIAL  AT  VACUUM  CONDITIONS  (MITROU-  4f-1S.7iniii) 
(TT.  TWISTED  TAPE)  (WM.  WIRE  MESH) 


Figure  5.10  Comparison  of  Rectangular  Shaped  Finned  Tubes 

to  Previous  Data  for  Copper  Nickel  at  Vacuum 
Conditions  (Mitrou  D^*  13.7mm}  (TT  (Twisted 
Tape)  and  WM  (Wire  Mesh)  are  type  of 
Inserts) 
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(Tt  -  Tw)  (4*0  K) 
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T 


((}!•{  w)/M) 

(OH)  iN3l0ldd300  b3iSNVHl  1V3H  3018100 


Figure  5.11 


Comparison  of  Outside  Heat  Transfer 
Coefficient  for  Rectangular  Shaped  Finned 
Tubes  for  Various  Materials  at  Atmospheric 
Conditions 
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Figure  5.12  The  Overall  Heat  Transfer  Coefficient  vs 

Coolant  Velocity  for  Atmospheric  Conditions 
(Rectangular  Shaped  Finned  Tube  (RST)  vs 
Radiussed  Root  Finned  Tubes  (RRT) )  for  Various 
Materials 
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COMPARISON  OF  OUTSIDE  HEAT  TRANSFER  COEFFICIENT  FOR  DEEP 
RADIUSSED  ROOT  FINNED  TUBES  OF  VARIOUS  MATERIALS  AT  ATMOSPHERIC 

CONDITIONS 


Figure  5.13 


Figure  5 . 14 


(T.  -  Tw)  (4m.  K) 


(•H)  lN3IOIdi300  lt33«NVIll  1V3M  30ISinO 


Figure  5.15  Comparison  of  the  Outside  Heat  Transfer 

Coefficient  at  Atmospheric  Conditions  for 
Rectangular  Shaped  (RST) ,  Deep  Radiussed  Root 
(DRRT) ,  and  Shallow  Radiussed  Root  (SRRT) 
Finned  Tubes  of  Copper  and  Copper  Nickel 
Materials 
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(Tt  .  Tw)  (d*|.  K) 
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Figure  5.16  Comparison  of  the  Outside  Heat  Transfer 

Coefficient  at  Atmospheric  Conditions  for 
Rectangular  Shaped  (RST) ,  Deep  Radiussed  Root 
(DRRT) ,  and  Shallow  Radiussed  Root  (SRRT) 
Finned  Tubes  of  Aluminum  and  Stainless  Steel 
Materials 
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(Ti  .  Tw)  (3*f.  K) 


(«1  ■  *1)  30N3kl3ddia  3HniVU3dR3i 
INVISNOO  U03  OllVU  iN3N30NVKN3 


Figure  5.17  Comparison  of  Heat  Transfer  Enhancement  Data 

at  Atmospheric  Conditions  to  the  models  of 
Beatty  and  Katz  [Ref.  1]  and  Rose  [Ref.  8]  for 
Rectangular  Shaped  Finned  Tubes  of  Materials 
Tested 
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Figure  5.18  Comparison  of  Heat  Transfer  Enhancement  Data 

at  Vacuum  conditions  to  the  models  of  Beatty 
and  Katz  [Ref.  1]  and  Rose  [Ref.  8]  for 
Rectangular  Shaped  Finned  Tubes  of  materials 
tested  (B&K-eqn(4.34)  and  Rose-egn(4 . 36) ) 
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Mieing  (mm) 


OliVH  1N3II30NVHN3  V3tlV 

Figure  5.19  Change  in  Total  and  Active  Surface  Area  for 

Rectangular  Shaped  Copper  Finned  Tubes  (Total 
Surface  Area  eqn(2,14)  rectangular  shaped, 
egn(2.37)  radiussed  root)  (Active  Surface  Area 
egn(2.15)  rectangular  shaped,  egn(2.38) 
radiussed  root) 
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TABLE  ZIZ 


ZMSZDE  LBADZMQ  COETTZCZBETE  AMD  OUT8ZDB  ALPEA 
VALUES  TOR  ATM08TBERZC  COMDZTZOM8. 


Tube 

No. 

Tube  Type 

Tube 

Material 

Ci 

(Atm) 

Alpha 

(Atm) 

1 

3.11 

2.19 

2 

Shallow 

Fillet 

Copper 

(Pure) 

3.08 

1.50 

3 

Deep  Fillet 

Copper 

(Pure) 

3.02 

1.85 

4 

Deep  Fillet 

Copper 

Nickel 

(90/10) 

2.65 

1.05 

5 

Shallow 

Fillet 

Copper 

Nickel 

(90/10) 

2.67 

1.06 

6 

Rectangular 

Fin 

Copper 

Nickel 

(90/10) 

2.67 

1.30 

7 

Deep  Fillet 

Stainless 
Steel  (316) 

2.26 

1.01 

8 

Shallow 

Fillet 

Stainless 
Steel  (316) 

2.35 

0.98 

9 

Rectangular 

Fin 

Stainless 
Steel  (316) 

2.10 

1.07 

10 

Rectangular 

Fin 

Aluminum 

(Pure) 

2.29 

1.74 

11 

Deep  Fillet 

Aluminurn 

(Pure) 

2.33 

1.56 

13 

Shallow 

Fillet 

Aluminum 

(Pure) 

2.25 

1.44 

ODl 

Smooth 

Copper 

(Pure) 

2.82 

0.85 

SMTH 

Smooth 

Copper 

(Pure) 

2.80 

0.85 
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TABLE  Zy.  IM8IDB  LBADIIIQ  C0B1TZCZB1IT8  AMD  OUT8ZDE  ALPHA 
VALUB8  FOR  VACUUM  COMDZTZQM8. 


Tube 

No. 


Tube  Type 


Tube 

Material 


SMTH 


Shallow 

Fillet 


Deep  Fillet 


Deep  Fillet 


Shallow 

Fillet 


Rectangular 

Fin 


Deep  Fillet 


Shallow 

Fillet 


Rectangular 

Fin 


Rectangular 

Fin 


Deep  Fillet 


Shallow 

Fillet 


Smooth 


Copper 

(Pure) 


Copper 

(Pure) 


Copper 

Nickel 

(90/10) 


Copper 

Nickel 

(90/10) 


Copper 

Nickel 

(90/10) 


Stainless 

Steel 

(316) 


Stainless 

Steel 

(316) 


Stainless 

Steel 

(316) 


Aluminum 

(Pure) 


Aluminum 

(Pure) 


Aluminiun 

(Pure) 


Copper 

(Pure) 


Ci 

(Vac) 


2.99 


2.91 


2.48 


2.42 


2.11 


2.15 


1.93 


2.00 


2.30 


2.78 


Alpha 

(Vac) 


1.50 


1.14 


1.30 


0.86 


0.83 


1.06 


0.78 


0.80 


0.77 


1.30 


1.18 


1.05 


0.81 
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TABLE  V.  OUTBIDS  HEAT  TRAMBTER  COETFICIEIIT,  (W/ (■^2*K)  )  , 
FOR  ATMOSPHERIC  COMDITIONS  FOR  ATs  30*X. 


TUBE  TYPE 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 

Rectangular 

33100 

24500 

18950 

14400 

Deep 

Radlussed 

26600 

22750 

15500 

14450 

Shallow 

Radiussed 

22250 

20500 

15800 

13800 

Smooth  Tube 

12500 

NA 

NA 

NA 

Nusselt 

Theory 

11000 

NA 

NA 

NA 

TABLE  VI.  OUTSIDE  HEAT  TRANSFER  COEFFICIEMT,  (H/(B^2*K)), 
FOR  VACUUM  COMDITIONS  FOR  ATs  12^, 


Tube  Type 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 

Rectangular 

22900 

20950 

16400 

13000 

Deep 

Radiussed 

20100 

18000 

13700 

11900 

Shallow 

Radiussed 

17000 

15800 

13300 

12000 

Smooth  Tube 

12800 

NA 

NA 

NA 

Nusselt 

Theory 

11700 

NA 

NA 

NA 
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TABLE  yZZ.  BMHAMCBIIBIIT  BATZO  BA8BD  Oil  SMOOTH  TUBB, 

<AT=  ATM08PHBRZC  COMDZTZOMS  FOR 

ATS  30*^. 


Tube  Type 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 

Rectangular 

2.65 

1.96 

1.52 

1.15 

Deep 

Radiussed 

2.13 

1.82 

1.24 

1.16 

Shallow 

Radiussed 

1.78 

1.64 

1.26 

1.10 

TABLE  VZZZ.  EMHAMCEMEMT  RATZO  BASED  ON  MUSSELT  THEORY, 

<^i/Nuss>AT'  ATM08PHERZC  COMDZTZOMS  FOR 
ATS  ao'ic. 


1  Tube  Type 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 

1  Rectangular 

3.01 

2.23 

1.72 

1.31 

Deep 

Radiussed 

2.42 

2.07 

1.41 

1.31 

Shallow 

Radiussed 

2.02 

1.86 

1.44 

1.26  1 
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TABLE  IZ.  BMHANCEMEllT  RATIO  BASED  OM  SMOOTH  TUBE, 
*iT=  'O*  VACDOM  COMDITIOMS  FOR  AT*  12"Z. 


Tube  Type 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 

1.79 

1.64 

1.28 

1.02 

Deep 

Radiussed 

1.57 

1.41 

1.07 

0.93 

Shallow 

Radiussed 

1.33 

1.23 

1.04 

0.94 

TABLE  Z.  EMHAMCEMENT  RATIO  BASED  OM  MUSSELT  THEORY, 
^4T=  <N/*»wss)4t»  VACDOM  COMDITIOMS  FOR  ATs  I2®K. 


Tube  Type 

Copper 

Aluminum 

Copper 

Nickel 

Stainless 

Steel 

1.96 

1.79 

1.40 

1.11 

1  Deep 

1  Radiussed 

1.72 

1.54 

1.17 

1.02 

Shallow 

Radiussed 


1.45 


1.35 


1.14 


1.03 


TABLE  XI.  BMKXIICEIIBMT  RATIO  AVBRAGBO  OVER  THE  RANGE  07  AT  TOR 
RECTANGULAR  8HAPBO  TINNED  TUBES  TOR  ATM08TRBRIC 
CONDITIONS  BASED  ON  NUS8ELT  THEORY, 


Tube 

Material 

Tube  No. 

eqn  (4.34) 

Copper 

1 

2.71 

1.97 

3.05 

Aluminim 

10 

2.62 

1.91 

2.40 

Copper 

Nickel 

6 

2.25 

1.61 

1.79 

Stainless 

Steel 

9 

1.61 

1.14 

1.47 

TABLE  XII.  ENHANCEMENT  RATIO  AVERAGED  OVER  THE  RANGE  OT 

AT  TOR  RECTANGULAR  SHAPED  TINNED  TUBBS  TOR 
VACUUM  CONDITIONS  BASED  ON  NU88BLT 
THEORY,  4*,=  (hf/t»wss>*T* 


D  Tube 

1  Material 

Tube  No. 

«BIC 

eqn (4. 34) 

0 

^Rose 

eqn  (4.36) 

Copper 

1 

2.73 

1.85 

2.07 

Aluminum 

10 

2.62 

1.78 

1.79 

Copper 

Nickel 

6 

2.23 

1.47 

1.45 

Stainless 

Steel 

9 

1.59 

1.00 

1.06 
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TABLE  ZIXZ 


BiniAlICBlISliT  RATIO  AVERAOBD  07BR  THE  RAMGB  OF 
AT  TOR  DEBT  RAOZD88ED  ROOT  FZEHID  TUBER  FOR 
ATM08PEBRIC  COMDITZOM8  BASED  OM  MDSSELT 
THEORY,  <V>*«»s>4T* 


Tube 

Material 

Tube  No. 

Modified* Rose 
eqn  (4.40) 

Copper 

3 

4.45 

2.53 

Aluminum 

11 

4.33 

2.14 

Copper 

Nickel 

4 

3.56 

1.42 

Stainless 

1  Steel 

7 

2.31 

1.38 

TABLE  ZZV.  ENHAMCEHEHT  RATIO  AVERAGED  OVER  TEE  RANGE  OF 

AT  FOR  DEEP  RADIU88ED  ROOT  FINMED  TUBES  FOR 
VACUUM  COMDITIOMS  BASED  OM  MUSSELT  THEORY, 


1  Tube 

Material 

Tube  No. 

Modifi^  Rose 
eqn  (4.40) 

(^exp^^MUSS^  1 

Copper 

3 

4.31 

1.79  1 

Aluminum 

11 

4.17 

1.62  1 

Copper 

Nickel 

4 

3.35 

1.18 

Stainless 

Steel 

7 

2.11 

1.07 
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TABLE  XT.  EMHANCBMSIIT  RATIO  AVERAGED  OVER  THE  RAHOE  OE  AT  FOR 
SHALLOW  RA0IU88ED  ROOT  riHHED  TUBES  FOR  ATMOSPHERIC 
COMDITIOMS  BASED  OM  HU88ELT  THEORY,  <>*f/Nuss> AT* 


1  Tube 

1  Material 

Tube  No. 

Modifi^^  Rose 
egn  (4.40) 

Copper 

2 

3.75 

2.06 

Aluminum 

13 

3.68 

1.98 

Copper 

Nickel 

5 

3.20 

1.45 

Stainless 

Steel 

8 

2.20 

1.36 

TABLE  XVI.  EMHAMCEMEMT  RATIO  AVERAGED  OVER  THE  RANGE  OF 

AT  FOR  SHALLOW  RADIU88ED  ROOT  FIMNED  TUBES  FOR 
VACUUM  COMDITIOMS  BASED  OM  MU88ELT  THEORY, 


Tube 

Material 

Tube  No. 

Modified  Rose 
eqn  (4.40) 

Copper 

2 

3.64 

1.57 

Aluminum 

13 

3.57 

1.45 

Copper 

Nickel 

5 

3.07 

1.16 

Stainless 

Steel 

8 

2.10 

1.09 
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TABLE  ZVII 


COMPARSION  OF  ACTIVE  SURFACE  AREA  EMHAMCEMEMT 
RATIOS  TO  EXPERIMENTALLY  OBTAINED  HEAT 
TRANSFER  ENHANCEMENT  RATIOS. 


Tube 

Material 

eqn  (2.38) 

■EMI 

<*./«** 

**T.r/ f.T  1 

Cu  Rose 
[Ref .28]^ 

0.92 

2.77 

1.41 

3.03 

1.53 

1.09 

Cu 

0.74 

2.57 

1.02 

2.17 

1.38 

0.84 

A1 

0.74 

2.05 

1.02 

1.84 

1.38 

0.90 

1  CN 

0.74 

1.53 

1.02 

1.19 

1.38 

0.75 

1  ss 

0.74 

1.26 

1.02 

1.18 

1.38 

0.94 

^Briggs,  Wen,  and  Rose  [Ref. 28]  tested  a  copper 
rectangular  shaped  finned  tube  with  the  following  geometry; 
root  diameter, D^,  of  12.7mm;  inside  diameter  ,D,,  of  9.82mm; 
fin  height  of  1.59mm;  fin  spacing  of  l.5mm;  fin  thickness  of 
0.5mm.  The  values  were  taken  directly  from  Table  1  of  [Ref. 
28]  . 
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VI.  C0MCLU8Z0M8  AMD  RBC0II11EMDATI0M8 


A.  COMCI1U8ZOM8 

Steam  condensation  data  were  obtained  for  rectangular 
shaped  finned  tubes  (D^»13.88iion) ,  deep  radiussed  root  finned 
tubes  (D^»13.88inm) ,  and  shallow  radiussed  root  finned  tubes 
(D^»14.38mm)  made  of  copper,  aluminum,  copper  nickel  (90/10) 
and  stainless  steel  (316)  under  both  vacuiim  and  atmospheric 
conditions.  All  tubes  had  a  fin  thickness  of  1.0mm,  fin 
spacing  of  1.5mm  and  outer  diameter  (D0)of  15. 88mm.  Based 
upon  these  measurements,  the  following  conclusions  are  made: 

1.  Reliable  baseline  data  have  been  obtained  for  finned 
tubes  of  copper,  aluminiam,  copper  nickel  (90/10)  and 
stainless  steel  (316). 

2.  For  finned  tubes,  the  thermal  conductivity  of  the  fin 
wall  material  had  a  significant  effect  on  the 
condensation  heat  transfer  coefficient.  In  fact,  for 
the  case  of  stainless  steel,  with  it's  poor  thermal 
conductivity,  a  finned  tube  can  perform  worse  than  a 
smooth  tube. 

3.  In  going  from  a  rectangular  shaped  fin  to  a  radiussed 
root  fin  of  the  same  root  diameter,  the  condensation 
heat  transfer  coefficient  decreased.  This  effect  was 
more  pronounced  for  high  conductivity  materials,  and  no 
notable  change  was  observed  for  stainless  steel  tubes. 

4.  For  rectangular  shaped  fins,  the  experimentally 
determined  heat  transfer  enhancement  ratio  for  copper 
at  atmospheric  pressure  was  found  to  be  larger  than 
that  predicted  by  Beatty  and  Katz  [Ref.  1]  and  by  a 
modified  version  (to  include  fin  efficiency)  of  Rose 
[Ref.  8].  For  the  other  materials  tested,  as  the 
thermal  conductivity  decreased,  the  data  fell  below  the 
Beatty  and  Katz  model  and  approached  closer  to  the  Rose 
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model.  Under  vacuum  conditions,  the  data  for  all  four 
materials  were  in  much  closer  agreement  to  the  Rose 
model  and  significantly  below  Beatty  and  Katz. 


5.  For  a  radiussed  root  finned  tube,  the  experimentally 
determined  heat  transfer  enhancement  ratio  for  all 
tubes  under  both  atmospheric  and  vacuum  conditions  was 
significantly  less  than  predicted  by  the  Rose  model  as 
modified  to  include  a  radiussed  root  fin  geometry. 
Additional  experimental  data  are  required  to  determine 
better  empirical  constants  that  are  utilized  in  the 
Rose  model. 


B.  RECOMMENDATIONS 

1.  Retest  each  tube  to  obtain  additional  data  in  order  to 
determine  the  empirical  constants  used  in  the  Rose 
model  [Ref.  8]. 

2.  Manufacture  new  tubes  with  the  same  root  diameter 
(13.88mm),  tube  materials  and  dimensions,  but  with  a 
larger  fin  height  of  2.0mm.  After  testing  each  tube, 
reduce  the  tube  height  for  the  next  set  by  milling 
0.25mm  off.  Continue  this  process  down  to  a  new  fin 
height  that  is  half  the  fin  spacing. 

3.  Manufacture  new  tubes  with  a  fin  height  of  2.0mm  but 
change  the  fin  spacing  to  1.0mm.  After  each  data  test 
set  mill  0.25mm  off  the  fin  height  down  to  a  new  height 
of  0.5mm. 

4.  Manufacture  new  tubes  with  a  fin  height  of  2.0mm  and 
fin  spacing  of  1.5mm  but  change  the  fin  thickness  to 
0.5mm.  After  each  data  set  mill  0.25mm  off  the  fin 
height  down  to  a  new  fin  height  of  0.75mm. 

5.  Manufacture  smooth  tubes  of  aluminum,  copper  nickel 
(90/10)  and  stainless  steel  (316)  for  comparison  with 
the  smooth  copper  tube  to  determine  the  effect  of  the 
tube  wall  thermal  conductivity  on  the  leading 
coefficient  (Ci)  and  the  alpha  (a)  for  determining  the 
enhancement  of  the  corresponding  finned  tubes. 

6.  Examine  the  Rose  model  [Ref.  8]  in  closer  detail  in 
order  to  refine  the  assumptions  made  and  increase  its 
validity. 
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7.  Recalibrate  and  verify  the  operation  of  each  measuring 
device  in  the  system  apparatus.  While  the  system  is 
disassembled,  check  and  align  the  test  section  to 
ensure  horizontal  orientation. 

8.  Modify  the  apparatus  by  installing  a  pressure  regulator 
for  the  auxiliary  condenser  cooling  water. 

9.  Install  a  bi-metallic  thermocouple  and  a  control 
operated  valve  in  the  coolant  water  sump  to  maintain  a 
constant  temperature  of  the  coolant  entering  the  test 
tube. 

10.  Install  a  digital  voltmeter  to  monitor  the  emf  signal 
from  the  electrical  switchboard  to  the  data  acquisition 
unit. 

11.  Provide  removal  lagging  pads  for  the  boiler  and  the 
test  section  to  reduce  the  influence  of  the 
environment . 
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APPSMDZZ  A.  DATA  COLLBCTKMI  LZBTIlfO 


The  program  DRPALL,  which  was  used  to  collect  and 
reprocess  all  data,  is  listed  in  this  Appendix. 
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10001 
I  00  1  * 
t00e< 

10071 
10091 
10101 
101 1 1 
i0i:  I 
1013' 
10141 
1015' 
10171 
1993  ) 
1018' 
1019' 
1020' 
1021  I 


ORPALL 

complete  RE'JISION  JULY  1993  <  MEMORY) 

MODIFIED:  SEP  1992  (O’KEEFE) 

MODIFIED:  JAN  1993  < L0N6 > 

MODIFIED:  JUNE  1993  (COBB) 

TO  BE  USED  WITH  NON-INSTRUMENTED  TUBES  ONLY 

TAKES  DATA  IN  THE  FORMAT  OF  SUENSEN/O’KEEFE/LONG/COBB 

CAN  REPROCESS  ANY  NON-INSTRUMENTED  DATA 

this  PROGRAM  WAS  USED  TO  COLLECT  ALL  THE  NON- 

INSTRUMENTED  DATA  TAKEN  BY  LONG  (JAN-JUN  1993)  FOR  TITANIUM  TUBES 

AND  THE  finned  TUBE  DATA  (RECTANGULAR  AND  FILLET  RADIUS)  OF  COBB  ( JUN-SEPT 

) 

meaning  of  all  flags  in  program 

IFT:  FLUID  TYPE 

ISO:  OPTION  UITHIN  PROGRAM 

IM:  input  mode 

IWIL:  UALUE  OF  Ci  USED 
IFG:  FINNED  OR  SMOOTH 

INN:  insert  TYPE 

lUT:  LOOP  NO.  UITHIN  PROGRAM 

IUTH;  alternative  CONDENSER  TUBES 
IMC:  TUBE  MATERIAL 

ITDS:  TUBE  DIAMETER 
IPC:  PRESSURE  CONDITION 

INF:  DIMENSIONLESS  FILE  REO'JIRED 

IPF:  plot  file  REQUIRED 

lOU:  OUTPUT  REQUIRED 

IHI:  INSIDE  HTC  CORRELATION 

IOC:  OUTSIDE  HTC  THEORY /CORRELATION 

COM  /Cc/  C(7 ) 

COM  /Cc55/  T55(5) 

COM  /Cc56/  T56(5) 

COM  /Cc57/  T57(5) 

COM  /Cc58/  T58(5) 

COM  /Fid/  Ift  .Istu 
DIM  Enf(20)  ,Tw(B  ) 

COM  /Pr/  Qpa(42  )  .Tfn(42  )  ,Tfnr  ,Ipc  .Opr 

COM  /Ui 1/  Nrun ,Itn,Iwth,Imc,Ife,Ijob,Iud,Ifg,Ipco,Ifto,Iuil,Ihi,Ioc  ,Inan  ,K 


cu  ,Rexp  ,Rn ,Ax 


COM  /Geotn/  D1  ,D2  ,Di  .Do  ,L  .L 1  .L2 

COM  /Fnc/.  Istuo  .  Inn  .Ityp  .'Ju  .Inane  .Iwco  .  Itds 

DATA  0.1008B091 .25727 . 943B9 .-767345 . 8295  .78025595 . 3 1 

DATA  -9247485589,5.975885+11 ,-2 .551 92E+1 3  .3. 94079E+ 1 4 

READ  C(*> 

DATA  273 . 1 5 .2 . 5943E-2 .-7 . 257 1 E-7 .3 . 294 1 E- 1 1  .-9 . 77 1 9E- 1 5  . 9 . 7 1 2 1 E-20 
READ  T55v  *  ) 
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105:  DATA  273. 15.:. 58795-2.-5.98535-^. -3. IZAZE-n  .1 .32755-14.-1 .01365-18 

1053  READT56C) 

1054  DATA  273.15,2.59235-2  .-7 . 39335-7  ,2 . 86255- 1 1  .1 .97175-15.-2.24865-19 

1055  READ  T57(.) 

1056  DATA  273. 15. 2. 59315-2  .-7.52325-7.4.06575-1 1  .- 1 . 279 1 5- 1 5  .5 . 44025-20 

1057  READ  T58'.  •' 

1053  Dr*. 015875  '  Outside  diameter  of  the  outlet  end 

1059  D5sp*.l524  I  Inside  diameter  of  stainless  steel  test  section 

1060  Ax*PI*Dsso'2/4 

1061  A1d2-0. 

1062  L*.  13335  •  Condensing  length 

1063  LI*. 060325  '  Inlet  end  “fin  length" 

1064  L2*. 034925  •  Outlet  end  "fin  length" 

1065  PRINTER  IS  1 

1066  BEEP 

1067  PRINT  IJSIN6  “4X. ““Select  option: . 

1069  PRINT  USINij  ''6X,’'"  0  Take  data  or  re-process  previous  aata 

1084  PRINT  USING  “BX.''"  1  Print  raw  data""" 

1090  PRINT  USING  “SX,"“  2  UILSCN  Analysys""" 

1093  PRINT  USING  “6X.“"  3  MODIFY""" 

1096  PRINT  USING  "SX.""  4  PURGE . 

1102  PRINT  USING  “SX.""  5  RENAME . 

1103  PRINT  USING  "SX,""  6  MERGE  FILES" 

1104  PRINT  USING  "BX.""  7  X  Y  PLOT  DATA  OUTPUT”"" 

1 106  INPUT  Iso 

1 108  I50*ls0+1 

1111  IF  Iso>l  THEN  3094 

1112  BEEP 

1115  INPUT  “SELECT  FLUID  ( O-UATER  .  I-R-113.  2*55)". Ift 

1116  Ifto-Ift 

1117  BEEP 
IMS  I  j  ob“0 

1119  INPUT  “ENTER  INPUT  MODE  < 0*3054A  ,  1 *FILE  ) "  ,  Im 

1120  Im*Im+ 1 

1123  BEEP 

1124  IF  Im*i  THEN 

1126  INPUT  "ENTER  MONTH,  DATE  AND  TIME  ( MM:DD:HH:MM: SS  )"  .DateS 
1129  OUTPUT  709!“TD“?Date$ 

1132  OUTPUT  709; "TD" 

1133  ENTER  709;Date$ 

1135  END  IF 

1136  IF  Ijob-1  then 
1138  BEEP 

1141  INPUT  "SKIP  PAGE  AND  HIT  ENTER"  .Ok 

1 144  END  IF 

1145  PRINTER  IS  701 

1146  IF  Im-1  THEN 

1 148  ENTER  709;Date* 
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Month,  date  and  tine  :"iDateS 


!5a 
151 
153 
156 
171 
174 
186 
139 
192 
195 
198 
201 
304 
207 
210 
21  1 
212 
216 
217 
213 

219 

220 

221 
-a  n 

Utmtm 

w 

227 

223 

231 

234 

235 

236 

238 

239 

241 

242 

249 

250 

252 

253 

255 

256 

257 

258 

259 

260 
261 
262 
263 


PRINT 
END  IF 
PRINT 

PRINT  USING  “10X.“"NOTE:  Rrogran  nane  :  DRPftLL"““ 

IF  Ijob-t  THEN  1189 
BEEP 

INPUT  "SELECT  < Ci :0-FINO  .  1 -STORED  Ci)“.Iwil 
IF  In-l  THEN 
BEEP 

INPUT  “5IUE  Pi  NAME  FOR  THE  RAW  DATA  FILE”  .D_f  i  le* 

PRINT  USING  ■‘lGX."“Fiie  nane  :  “ "  .  1  4A“ ;  D_f  i  leS 
CREATE  SCAT  D_file*.30 
ASSIGN  SFile  TO  D.fileS 
BEEP 

INPUT  "ENTER  GEOMETRY  CODE  < 1 -FINNED  .0-PLAIN I fg 
Inn-0 

PRINTER  IS  1 
BEEP 

PRINT  "  ENTER  INSERT  TYPE:" 

PRINT  "  0-NONE  (DEFAULT)" 

PRINT  “  1 -TWISTED  TAPE" 

PRINT  "  2-WIRE  WRAP" 

PRINT  "  3-HEATE:<" 

INPUT  Inn 

OUTPUT  «File:Ifg.Inn 

Iwt-0  '  FOR  UNINSTRUMENTED  TUBE 

Fh-0 

Fp*0 

F|4-0 

l8tu-0 

latuo-Istu 

IF  Ifg-0  THEN  1241 

INPUT  "FIN  PITCH.  HEIGHT  AND  WIDTH  IN  MM,  Fp ,Fh  .Fu"  .Fp  .Fh  .Fw 
OUTPUT  9Fi le 5 lut  ,Fp ,Fw  ,Fh 
ELSE 
BEE? 

PRINTER  IS  1 

PRINT  "  STUDENT’S  DATA  TO  BE  REPROCESSED:" 

PRINT  "  0-SWENSEN/O’KEEFE/LONe/COBB  (DEFAULT)" 

PRINT  "  1-UAN  PETTEN/MITR0U/C0UMES/6UTTEND0RF" 

INPUT  latu 
latuo-Iatu 
BEEP 
PRINT 

IF  l5tu-1  then 

PRINT  "  STUDENT  NAME:" 

PRINT  "  0-UAN  PETTEN" 

PRINT  "  1-MITROU" 
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1254 

PRINT  " 

2-COUMES" 

1265 

PRINT  '• 

3-5UTTEND0 

1266 

ELSE 

1267 

PRINT  " 

4-5WENSEN " 

1263 

PRINT  “ 

5-0’KEEF5" 

1269 

PRINT  " 

G-LONS" 

1270 

PRINT  “ 

7-COBB" 

1271 

END  IF 

1272 

INPUT  I nan 

1273 

I nano- 1  nan 

1277  BEEP 

1273  INPUT  “GIUE  THE  NPHE  OF  THE  EXISTING  DHTft  FILE"  .D_f ileS 
1279  PRINTER  15  701 


1280 

IF 

Inan-0 

THEN 

PRINT 

USING 

■ 16X  .""Data 

tal'  en 

by 

UAN  PETT 

EN . 

129! 

IF 

Inan- 1 

THEN 

PRINT 

USING 

"I6X  .■•"Data 

talen 

by 

MITROU"  ■' 

1282 

IF 

Inan-2 

THEN 

PRINT 

USING 

" 16X  .-“Data 

taken 

by 

COUME5"" 

1233 

IF 

Inan=3 

THEN 

PRINT 

USIN': 

"16X  .""Data 

taken 

by 

GUTTENDO 

RF . 

1284 

IF 

Inan-4 

THEN 

PRINT 

USING 

■■  1 SX  , “ "Data 

taken 

by 

SUENSEN" 

1285 
>1  •« 

IF 

Inan-5 

THEN 

PRINT 

USING 

" ISX  .""Data 

taken 

by 

O’KEEFE- 

1286 

IF 

I  nan-6 

THEN 

PRINT 

USING 

"  1 6X  ," "Data 

tak  en 

by 

LONG" 

1297 

IF 

Inan-7 

THEN 

PRINT 

USING 

"ISX  .""Data 

tak  en 

by 

COBB"” " 

1288 

FRI 

NT  USING  "16X,""Thi5  analysis  done  on  fil« 

1  •  ** 

,!0A" ;D_f lies 

1289  PRINTER  IS  I 

1290  BEEP 

1291  INPUT  "ENTER  NUMBER  OF  DATA  SETS  STORED"  ,Nrun 

1292  ASSIGN  SFiie  TO  D.file* 

1293  ENTER  SFile; Ifg  .Inn 

1294  IF  l5tu-0  THEN 

1295  ENTER  9File!lwt  .Fp  .Fu.Fh 

1296  ELSE 

1297  IF  Ifg-0  THEN  ENTER  9File;Iwt 

1298  IF  Ifg-1  THEN  ENTER  9Fi le;Fp ,ru  ,Fh 

1299  END  IF 

1300  END  IF 

1301  IF  l5tu-1  AND  Inn-l  THEN  Inn-2 

1303  IF  Ijob-1  THEN  1537 

1304  IF  lft>0  THEN  1349 

1305  BEEP 

1306  PRINTER  IS  1 

1307  PRINT  USING  " 4X  ,  " " Selsct  tube  type:""" 

1328  PRINT  USING  "6X.*"0  SMOOTH  TUBE""" 

1329  PRINT  USING  "SX.""1  FINNED  TUBE  RECTANGULAR) . 
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1333  P9INT  IJ5INS  'BX,"-:  WIRE-WRPiPPED  SMOOTH  TUBE . . 

•331  PRINT  U5ING  ■5X.-''5  LPD  KOROOENSE  TUBE"““ 

133;  PRINT  USING  ■•6X."“4  UIRE-UIRAPPED  LPO  KOROOENSE  TUBE 

1333  PRINT  USING  ■■6X,-"5  MHT  KOROOENSE  TUBE  ’  “ 

1334  PRINT  USING  '•ex,  “■•6  WIRE-URAPPED  MHT  KOROOENSE  TUBE 
133B  PRINT  USING  "SX.“"7  FINNEO  TUBE  < SHALLOW  FILLET'"”" 

1337  PRINT  USING  "6X."”8  FINNED  TUBE  < DEEP  FILLET 

1338  INPUT  Ityp 

1339  PRINTER  IS  701 
'340  BEEP 

1341  PRINTER  IS  1 

I34Z  PRINT  USING  •■4X  "Select  Material  Code:""" 

1343  PRINT  USING  “SX.""0  COPPER  1  STAINLESS  STEEL" ““ 

1344  PRINT  USING  "6X,""2  aluminum  3  90:10  CU/NI""" 

1345  PRINT  USING  "6X.""4  TITANIUM  " " “ 

1345  INPUT  Itnc 

1347  Inco"Imc 

1349  printer  is  1 

1550  BEEP 
1351  Itds»l 

1353  PRINT  USING  " 4X SELECT  TUBE  DIA  TYPE: . 

1357  PRINT  USING  "SX/'-O  SMALL""' 

13G0  PRINT  USING  "BX,""1  MEDIUM  (DEFAULT)""" 

1363  PRINT  USING  "6X  .“"3  LARGE . 

1364  PRINT  USING  "6X.""3  SMALL  (COBB)""" 

136'  PRINT  USING  "6X."'4  OTHER  (LPO/MHT) 

13G8  INPUT  Itds 

1373  IF  (Ityp-0  OR  Ityp-1  OR  Ityp-O  ANC  lfnc=0  THEN 
1375  IF  Itds-0  THEN 
13'S  Di-. 009525 

1377  Do*. 0127 

1378  END  IF 

1379  IF  Itds-1  THEN 

1380  D1-.0127 

1381  Do-. 01905 

1383  END  IF 

1384  IF  Itd9-2  THEN 

1385  D1-.0127 
138B  Do-. 025 

1387  END  IF 

1388  IF  Itd9-3  THEN 

1389  D1-.0127 

13901  Do-. 01 388  'DEEP  DEPTH 

1391  Do-. 01 438  'SHALLOW  DEPTH 

1393  END  IF 

1394  IF  Itds-4  THEN 

1395  PRINT  USING  "BX." "ERROR  -  NO  COPPER  LPD/MHT""" 

1396  END  IF 
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t3S7  £\C  IF 

>338  IF  (ItyD*'  OR  It/P“2'  i^ND  Itd9»3  THEiM 
>399  Di-.3!:7 

>400  Do«.0i3B3 

1402  END  IF 

>403  IF  Ityo''^  and  Itd9*3  THEN 

1404  Ol»,0i:7 

1405  Do-.0'438 
1405  END  IF 

1408  IF  (Ixy3«3  OR  IXyp»4>  AND  I(nc*4  THEN 

1409  Dl». 01347 

1410  Do». 01585 

1411  end  IF 

1457  IF  :  ltyp*0  OR  I*yp*Z‘  AND  Imc“4  THEN 

1459  Do*.0'585 

1459  Di«.31wo6 

1460  END  IF 

1461  IF  (Ityn"5  OR  Ityp*5)  AND  Inc*4  THEN 

1452  Do-. 01537 

1463  Di*. 01353 

1465  END  IF 

1467  D1-. 01905 

1453  DZ*.'3i5o5 

1478  IF  Itds-3  OR  Itd9*4  THEN  D1«. 01535 

1484  IF  (ltyp«0  OR  It/p-2)  AND  Imc-4  THEN  Dl*. 01535 

1492'  thermal  CONDUCTIVITIES  TAKEN  FROM  '•THERMOPHYSICAL  PROPERTIES  OF  MATTER" 
'493'  THE  TPRC  DATA  SERIES  -  VOLUME  1 

1494  IF  Inc^O  then  Kcu''390,8 

1495  IF  I"ic*l  Then  Kc'j*14.3 

1496  IF  Imc«2  ■’’HEN  Kcu“23l.8 

1497  IF  Imc”3  THEN  Kcu*55.5 

1498  IF  Inc“4  "HEN  •<:u"l8.9 

1499  Rn*0o*L06< Qo/Di ) / ( 2*Kcu )  '  Wail  re9i9tance  baaed  on  outaide  area 
1501  BEEP 

1504  input  "ENTER  PRESSURE  CONDITION  ( 0-V  ,  1 -A  )"  ,Ipc 

1507  Ipco“Ipc 

1508  Inf-0 
1510  BEEP 

1537  Ife-l 

1538  PRINTER  IS  701 

1543  PRINT  USING  "lSX,""Thi9  analyais  mdudea  end-fin  effect""" 

1546  PRINT  USING  ■  1 SX  , " "Thernal  conductivity  -  ““,3D.D,"“  (  U/n . K ) " " " ; Kcu 

1549  PRINT  USING  "  1  6X , '  “  Ina ide  diameter,  Di  -  ““,DD.DD,""  ( mm > " “ “ iDi *  1 000 

1552  PRINT  USING  "  1  5X  , “Out  91  de  diameter.  Do  -  "",DD.D0,""  (  mm  1 . ;Do*1000 

1556  Ihi-0 

1557  PRINTER  IS  1 

1558  PRINT  "  SELECT  INSIDE  CORRELATION:" 

1559  PRINT  ••  0-5IEDER-TATE  (DEFAULT)" 
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1560 

PRINT  ■' 

1 -SLEICHER-ROUSE  •• 

'55! 

PRINT 

2-PETUKHCU-POPOU" 

15B: 

input  Ihi 

1563 

IF  lhi«0 

then 

1564 

BEEP 

1  565 

INPUT 

SELECT  REVNOLDS  EXPONENT"  , Rexp 

1567 

END  IF 

1563 

IOC-0 

1563 

BEEP 

1570 

PRINT 

1571 

PRINT  " 

SELECT  OUTSIDE  THEORY, 'CORRELATION  FOR  WILSON 

ANALYSI 

C  •  “ 

.  w  • 

1572 

PRINT  " 

0-NUSSELT  THEORY  (DEFAULT)" 

1573 

PRINT  '■ 

1-FUJII  <197S)  CORRELATION" 

1574 

INPUT  loc 

1575 

BEEP 

1576 

Itin“1 

1577 

PRINT 

1578 

PRINT  " 

SELECT  COOLANT  TEMPERATURE  RISE  MEASUREMENT:' 

1579 

IF  Istu-Z 

1  THEN  PRINT  "  0-5IN6LE  TEFLON  T/C" 

1580 

PRINT 

1 -quart:  thermometer  (DEFAULT)" 

1531 

PRINT  '■ 

2-10-JUNCTION  THERMOPILE” 

1532 

INPUT  Itn 

1583 

PRINTER  IS  701 

1584 

IF  ltn«0 

THEN  PRINT  USING  "16X,"“Thi5  analysis  uses  the 

SINGLE 

TEFLON 

T/C 

readings . 

1585 

IF  Itn*l 

THEN  PRINT  USING  "lSX,"“Thi5  analysis  uses  the 

QUARTZ 

THERMOMETER 

readings "  '  “ 

1586 

IF  Itn»2 

THEN  PRINT  USING  "l6X,""Thi5  analysis  uses  the 

10-JUNCTION  THERMO 

PILE 

'•eadings "  “ 

" 

1587 

Iic“1  '  F 

OR  MODIFIED  WILSON 

1586 

IF  Ihi-0 

AND  Inn-0  THEN  Ci-.027 

1591 

IF  lhi«0 

AND  Inn-2  THEN  Ci-.05 

1592 

IF  Ihi-0 

AND  Inn-3  THEN  Ci-.07 

1594 

IF  Ihi-I 

OR  Ihi-2  THEN 

1595 

IF  Inn 

-0  THEN  Ci-1 .0 

1597 

IF  Inn 

-2  then  Ci-2.0 

1598 

IF  Inn 

-3  THEN  Ci-2.5 

1599 

END  IF 

1601 

IF  Iuil-1 

THEN 

1602 

BEEP 

1  603 

INPUT 

“ENTER  Cl  IF  DIFFERENT  FROM  STORED  UALUE'.Ci 

1604 

END  IF 

1605 

PRINTER  IS  701 

1606 

IF  Ihi-0 

THEN  PRINT  USING  " 1 6X  , " “Modi f led  Sieder-Tate  coefficient  - 

““  .z 

.4D" ;Ci 

1607  IF  Ihi-0  THEN  PRINT  USING  ’ I 6X "Chosen  Reynolds  No.  exponent  *  "".0 

. DO” i Rexp 

1608  IF  Ihi“1  THEN  PRINT  USING  ” 1 6X  , " “Modi f led  Sleicher-Rouse  coefficient  ■  " 
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" .Z.4D" ;Ci 

1603  IF  Ihi*2  PRINT  iJSiNG  ”  1  Sa  ,  “  "Modi  f  led  Petui;  hov-Popov  coefficient  *  “ 

"  ,2.4D";Ci 

1610  lnn*0  THEN  PRINT  USING  " 1 6X  , " "Us mg  no  insert  inside  tube . 

1611  IF  Inn*2  THEN  PPIN~  USING  "  1 5X  ,  “  “Us mg  uire  wrap  insert  mside  tube . 

1612  IF  Inn*3  THEN  ORINT  USING  "loX, “"Using  HEATEX  insert  inside  tube . 

1620  IF  Iic-1  THEN  Ac-0. 

1621  BEEP 

1622  IF  Ijob-1  THEN  1643 

1623  PRINTER  IS  1 

16241  INPUT  "NnME  FOR  A  TEMPORARY  PLOT  FILE  (TO  BE  PURGED )"  ,P_f i leS 

1625  P_f lies- "DUMMY " 

1626  bIeP 

1634  CREATE  BDAT  P_fil-S.30 
1644  ASSIGN  9Filep  TO  P_file$ 

1648  IF  Ijob-1  then 
1651  Iov-1 

1654  SOTO  1667 

1657  END  IF 

1660  BEEP 

1661  INPUT  "SELECT  OUTPUT  (0-SHGRT.  1 *L0NG  ; " . lev 

1666  Iov-Iov*t 

1667  PRINTER  IS  70! 

1672  IF  Ityp-0  THEN  PRINT  USING  " 1 6X  ,  “ “Tube  Enhancement  :  SMOOTH  TUBE . 

1673  IF  Ityp-I  then  PRINT  USING  “l6X,""Tube  Enhancement  :  RECTANGULAR  FINNED 

TUBE . 

1674  IF  Ityp-2  THEN  PRINT  USING  "  16'X  “Tube  Enhancement  :  UIRE-URAPPED  SMOOTH 

TUBE . 

1675  IF  Ityp=3  THEN  PRINT  USING  “16X,"“Tube  Enhancement  :  LPD  KORODENSE  TUBE" 

•I  w 

1678  IF  Ityp-4  THEN  PRINT  USING  “16X,“"Tube  Enhancement  :  UIRE-WRAPPED  LPD  KO 

RODENSE  TUBE . 

1679  IF  Ityp-5  THEN  PRINT  USING  “16X,“"Tube  Enhancement  :  MHT  KORODENSE  TUBE" 

1680  IF  Ityo-6  THEN  PRINT  USING  “l6X,“"Tube  Enhancement  :  WIRE-WRAPPED  MHT  KO 

RODENSE  TUBE . 

1681  IF  Ityp-7  THEN  PRINT  USING  “l6X,““Tube  Enhancement  :  SHALLOW  FILLET  FINN 

ED  TUBE . 

1682  IF  Ityp-8  THEN  PRINT  USING  "16X,““Tube  Enhancement  :  DEEP  FILLET  FINNED 

TUBE . 

1683  BEEP 

1684  IF  Inc-0  THEN  PRINT  USING  "16X,""Tube  material  :  COPPER . 

1685  IF  Imc-1  THEN  PRINT  USING  "1GX.""Tube  material  :  STAINLESS-STEEL . 

1686  IF  Inc-2  THEN  PRINT  USING  " 16X "Tube  material  :  ALUMINUM . 

1687  IF  Inc-3  THEN  PRINT  USING  "15X."“Tu0e  material  :  90/10  CU/NI""" 

1688  IF  Inc-4  THEN  PRINT  USING  "16X.""Tube  material  :  TITANIUM""" 

1689  IF  Ipc-0  then  print  USING  " 1 GX ," "Pressure  condition  :  VACUUM" "“ 

1690  IF  Ioc-1  THEN  PRINT  USING  " 1 6X ,“ "Pressure  condition  :  ATMOSPHERIC 
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lS3i'  PRINT  USING  “ISX.-'Fin  pitch,  width,  and  height  •' wn  ) :  “  “  ,DD .  OD  .2X  ,Z  .  DO  ,2X  , 
Z.DD-;Fp  ,Fw.Fh 

1692  IF  Iuil-0  AND  Im-2  THEN 

1693  IjoD“l 

1694  Iwd*l 

1696  CALL  Uilson(Ci  ) 

1699  END  IF 
1702  J-0 

17:2  IF  lov-t  THEN 

1722  PRINT 

1723  IF  Ihi*1  then 


1724 

PRINT 

USING  “10X.‘“Data 

Uu 

Uo 

Ho 

Qp  Tcf 

Ts 

Re>p“  “  '■ 

1725 

PRINT 

USING  “ 10X  t 

( n/a  ) 

( W/n  -2-K  ) 

( W/m'2-K  ) 

(U/n*2)  (C> 

(C  )  ( 

S-R) . 

1726 

ELSE 

1728 

PRINT 

USING  " 10X  ."'Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts . 

1729 

PRINT 

USING  10X  t 

<  n/s  > 

( y/n-2- 

K)  (U/m'2 

-K  >  (U/m  ‘2> 

(  C  )  (  C  ) " "  “ 

1730  END  IF 
1740  END  IF 
1747  Z.<-0 

1750  Zx2-0 

1753  Zxy-0 
1756  Zy-0 
1759  Sx-0 

1762  Sy-0 

1765  5x5-0 

1763  Sxy-0 

1771  Go_oh-1 
1 774  Repeat : i 
1777  J-J+1 

1780  IF  Irt-I  THEN 


1783 

BEEP 

1786 

INPUT  "LIKE  TO  CHECK  NG  CONCENTRATION 

1789 

IF  J-1  THEN 

1792 

OUTPUT  709; “AR  AF40 

AL41  UR5" 

1795 

OUTPUT  709; "AS  5A" 

1798 

END  IF 

1801 

BEEP 

1804 

INPUT  "ENTER  FLOWMETER 

READING* ,Fn 

1807 

OUTPUT  709; "AR  AF60  AL6 

2  UR5" 

1810 

OUTPUT  709; "AS  SA" 

1813 

ENTER  709;Etp 

1816 

OUTPUT  709; "AS  SA" 

1819 

BEEP 

1822 

INPUT  "CONNECT  U0LTA6E 

LINE"  .Ok 
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13:5  ENTER  70g;Bvol 

1828  SEcF 

1831  INPUT  “DISCONNECT  UOLTAGE  LINE"  .Ok 

I  SS'I  IE  Bvol..l  THEN 

1837  BEEP 

1 343  BEEP 

1343  input  "INUALID  UOLTAGE.  TRY  AGAIN i“. Ok 

1846  GOTO  1919 

1849  END  IF 

1853  OUTPUT  709; “AS  SA" 

186!  ENTER  709;BaPiD 

1862  Etp-Etp*1 .E+B 

1863  OUTPUT  709; “AR  AF40  AL47  UR5' 

1874  Nn»7 

1876  FOR  1-0  TO  Nn 

1879  OUTPUT  709; "AS  SA" 

1885  Se-0 

1988  FOR  K-1  TO  10 

1891  ENTER  70S;E 

1 894  Se-Se+E 

1897  NEXT  K 

1900  Ewf < I  )-ABS( Se/ 1 0  ) 

1916  Emf  (  I  )-Ei*tf  <  I  >*  1  .E+6 

1918  NEXT  I 

1921  OUTPUT  709; "AS  SA" 

1924  OUTPUT  713;"T!R2£" 


1927  WAIT  2 

1930  ENTER  71 3; Til 

1933  OUTPUT  713;  ■•T2R2E" 

1936  WAIT  2 

1939  ENTER  713;T2 

1942  OUTPUT  713;"T1R2E‘ 

1945  WAIT  2 

1948  ENTER  713;T12 

1951  T1-(T1 1+T12  )*.5 

1954  OUTPUT  713;"T3R2E" 

1960  BEEP 

1970  INPUT  "ENTER  PRESSURE  GAGE  READING  (PQa)".Pga 

1971  Pvap1-Poa*6894.7  •  PSI  TO  Pa 

1972  OUTPUT  709; "AR  AF64  AL64  UR5" 

1973  OUTPUT  709; “AS  SA"  '  PRESSURE  TRANSDUCER 

1 974  Ss-0 

1975  FOR  K-1  TO  20 

1976  ENTER  709;Etran 

1977  Ss-Sa+Etran 

1978  NEXT  K 

1979  Ptran-ABS<Ss/20 > 

1 960  BEEP 

1981!  PRESSURE  IN  Pa  FROM  TRANSDUCER 
1 982  Pvap2-< -2 . 93604*Ptran+1 4.7827  ) *68 94. 7 

1985  ELSE 

1986  IF  Istu-0  then 

1989  ENTER  9Fi leiBvol  ,Banp  ,Etp  .Pm  ,T1  .T2  .Pvapi  ,Pvap2  ,Emf ( *  ) 

1990  ELSE 
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199: 
n»  ,T  1 
199A 

1996 

1997 

1998 

1999 

zeee 

2802 

2003 

2008 

2009 

2010 
201  1 
2012 
2015 
2023 

2038 

2039 

2042 

2043 

2044 

2045 

2046 
2048 
2050 
2053 
2063 
2081 
2082 

2083 

2084 

2085 

2087 

2088 

2090 

2091 
2092! 
2098 
2104 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 


EN'^ER  0Fi  le  ;Bvol  .Bamo  .^tran  ,£-tp,Emf<0),EMf(  1  ),Efnf(2),Ewf(3).E«f(4),F 
T2  .F^tg  .Pyater 
END  IF 

IF  J»1  OR  J»20  OR  J»Nrun  THEN 
Nq»  1 
ELSE 
No«0 
END  IF 
END  IF 

IF  l9tu“0  then 

Tsteanl  ■FNTvsv57(  Ernf  (  0  )  ) 

T9tean1"T9tean1-273.  IS 
T9taa(n2"FNTv9v56(  Enf  (  1  ') 

T9tean2”T9tean2-Z73.  15 
T9teaw*T9t9an1 
Troon“FNTv9v53(  Ef^f  (  2  )  ) 

Troon“Troom-273 . 1 5 
Tcon*FNTv9v58<  Enf (7  )  ) 

Tcon-Tcon-273. 15 
ELSE 

T9team“FNTv9v( Enf  (  0 ) ) 

Troorn«FNTv 9 V ( Enf  (  3  )  ) 

Tcon**FNTv9v<  Enf  (  4  )  ) 

END  IF 

P9at*FNPv9t(T9teain ) 

Rohg«1 3529-1 22* ( TrooM-2S .85  )/50 
Rowater“FNRhow<  Troow ) 

IF  l9tu*0  then 
Ptest 1 "Pvap 1 
Pt9st2»Pvap2 
ELSE 

Pteat2»( Phg*Rohg-Pyat«r*Rowater )*9. 81 / 1 000 
END  IF 

Pk9“P9at* 1 .E-3 
Pkp-Pte9t2*1 .E-3 
Pkt-Pk9 

Ttran»FNTv9p< Pte9t2  ) 

PRINT  Psat  ,Pte9t2  .Ttran  .Tatean 
y9t“FNUv9t<T9teen ) 

Ppng*< Pte9t2-P9at )/Pte9t2 
Ppst»1 -Ppng 

nuv>18.016 

IF  Iff  1  THEN  Mwv-137  !  TO  BE  CORRECTED 

IF  Iff 2  THEN  lluv-62 
yfnQ»( PteatZ-Psat )/Pteat2 
MfnQ-1/( 1+< 1/Vfng-1  )*Mwv/28.97  ) 

Mf ng^Mfng* 1 00 
Ufno«Ufng* 100 
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2131  SEED 
2)34  IF  Iov-2  THEN 
2137  PRINT 

2138'  RECORD  TIME  OF  TAKING  DATA 

2)39  IF  !«-)  THEN 

2140  OUTPUT  705; “TD“ 

2141  ENTER  709;Tolc3$ 

2142  END  IF 

2144  PRINT  USING  “10X,““Data  set  number 

2145  OUTPUT  709; '’AR  AF40  AL40  UR5“ 

2)46  OUTPUT  709; “AS  SA" 

2145  END  IF 

2152  IF  Iov-2  AND  Ng-I  THEN 
2155  IF  l5tu-0  THEN  PRINT  USING  ‘)0X.““ 

5  % "  “ 

2155  IF  Istu-1  then  PRINT  USING  "I0X.‘“ 

6  S““" 

2158  PRINT  USING  “10X.““  (kPa>  (kPa> 

2161  PRINT  USING  “ 1 1 X .5( M3D .D  .2X ) “ ;Pk5 .Pko  .Tstean Jtran  ,Mf ng 

2164  PRINT 

2167  END  IF 

2170  IF  Mfng>,5  THEN 

2173  BEEP 

2176  IF  Im-«;  AND  Ng-1  THEN 
2179  BEEP 

2182  PRINT 

2185  PRINT  USING  “ 1 0X  "Energize  the  vacuum  system 

2188  BEEP 

2191  input  "OK  TO  ACCEPT  THIS  RUN  ( 1 »Y  .0-N >7“  .Ok 

2194  IF  Ok*0  THEN 

2197  BEEP 

2200  DISP  ‘NOTE:  THIS  DATA  SET  WILL  BE  DISCARDED"  “ 

2203  WAIT  5 

2206  SOTO  1780 

2209  end  IF 

22 1:  END  IF 

2215  END  IF 

2218  IF  Im-1  THEN 

2221  IF  rm<10  OR  Fn>100  THEN 

2224  Ifm-0 

2227  BEEP 

2230  INPUT  "INCORRECT  FM  { 1 -ACCEPT  ,0-DELETE  )"  .Ifm 

2233  IF  Ifm-0  THEN  1804 

2236  END  IF 

2239  END  IF 

2242!  ANALYSIS  BEGINS 

2243  IF  Istu-0  then 

2252  Ti 1 -FNTvsv58< Emf < 3  )  ) 


-  ““  .D0,4X ,14A";J  .Told* 


Psat 

Ptran 

Tsat 

Ttran 

N 

Psat 

Pman 

Tsat 

Tman 

N 

(C  1 

<C  > 

Molal 
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2272  To«»FNTvsv58<Enf(4)  ) 

2292  Til-Til-273.15 

2312  To1-To1-273.lS 

2332  Tdell-Tol-Til 

2352  Tdel2-T2-Tl 

2353  Etpl-Enf(3>+Etp/20. 

2354  0tde-2.5931E-2-1 .504B4E-6«Etp1 +1 .21701E-10*Etpl *2-5. 1 164E-l5*Etpl ‘3+3.2 
20IE-19*Etpl“4 

2355  Trls-Dtdc«Etp/10. 

2358  To3-Til+Tris 

2359  IF  Iov-2  THEN 

2361  PRINT  USIN6  ‘IX.**  TINl  TOUTl  TIN2  TOUT:  DELTl  DELT2 
TPILE 

2362  PRINT  USIN6  'IX.**  (SINGLE)  (QUARTZ)  *•* 

2364  PRINT  USING  *2X .7( 30.00 .2X  )* jTi 1  .Tol  .T1  .T2  .Tdel 1  ,Tdel2 .Tris 

2365  END  IF 

2367  Erl-ABS(Til-Tl  ) 

2369  PRINTER  IS  1 

2370  BEEP 

2375  Er2-ABS((T2-TI  )-( Tris  )  )/< T2-T1 ) 

2377  IF  Er2>.05  AND  In- I  THEN 

2378  BEEP 

2379  PRINT  *QCT  AND  T-PILE  DIFFER  BY  MORE  THAN  5X* 

2380  0k2-l 

2381  IF  Ok2-0  AND  Er2>.05  AND  Iw-1  THEN  1780 

2382  ENO  IF 

2383  PRINTER  IS  701 

2384  ELSE 

2385  Tstean-FNTv8v(Enf(0) ) 

2387  Til-FNTvsv(Enf(2) ) 

2388  6rad-FN6rad( (T1+T2 )*.5) 

2389  To3-Til+ABS(Etp  )/( t0*6rad  )• 1 .E+6 

2392  ENO  IF 

2393  IF  Istu-0  AND  Itn-0  THEN 

2394  Tcin-Til 

2395  Tcout-Tol 

2396  END  IF 

2397  IF  Itn-1  THEN 

2398  Tcin-TI 

2399  Tcout-T2 

2400  END  IF 

2401  IF  Itn-2  THEN 

2402  Tcin-Til 

2403  Tcout-To3 

2404  END  IF 

2405  Tavo-<Tcin+Tcout >*.5 

2406  Trlse-Tcout-Tcin 
2407!  PRINT  Tpise 
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24U  Ift-a 

2415  Cpw«FNCpw( Tavg  ) 

241 B  Rhou*FNRhow< Tavg  ) 

2417  Kw-FNKw<Tavg) 

2418  nuwa*FNnuw(  Tavg ) 

2413  Pp««FNPrwt Tavg ) 

2420  Ifflfto 

2422  IF  l9tu-0  THEN 

2423  Mdt-(  6 .7409»Fn-fl  3.027  )/ 1 000. 

2424  nd«Hdf(  1 .03B5-1 .96644E-3*Tcin^5.252E-B*Tcin*2  >/1 .0037 

2425  ELSE 

2426  Hdt- 1 . 04805E-2+S . 80932E-3*Fn 

2427  Md»Mdf(  1  .0365-1  .9B644E-3*Tcin-*.5.252E-6*Tcin*2  )/ .995434 

2428  END  IF 

2429  Uf-Md/Rhou 

2430  VwUf/(PI*0x*2/4 ) 

2431  Tcor“FNTfpic<  Tnse  ) 

2432  Tpiaa^Tcop 

2433  Tcout«Tcin+Tpi9e 

2434  Lntd*Tpi9e/L06{  ( T9tean-Tcin  )/(T9tea«-Tcout ) ) 

2447  Q*f1d*Cpw*Tpi9e 

2448  Qp-Q/(PI*0o*L) 

2449  Uo"0p/Lntd 

2451!  PRINT  TPi9e ,0 ,Do ,L ,0p ,Lntd  ,Uo  ,Vw 

2452  Rei-Rhowyw-Di/Muwa  '  ASSUMED  SAME  FOR  KORODENSE 

2453  Ift-0 

2455  Fe1-0. 

2456  Fe2-0. 

2457  Cf-1. 

2458  Ppwf»Ppu 

2459  Reif*Rei 
2461  IF  Ihi-0  THEN 

2463  Onega*Rei “Rexp^Prw* . 3333*Cf 

2465  END  IF 

2466  IF  Ihi-1  THEN 

2467  Sra-.88-( .24/<4.+Ppuf  ) ) 

2468  Spb- . 333333+ .5*EXP( - .6*Ppuf ) 

2470  Onaga*(5.  +  .0I5*Relf  *Spa*Ppwf''Spb ) 

2471  END  IF 

2472  IF  Ihi-2  THEN 

2473  Ep9i-< 1 .82*L8T(Rei )-l,64)“(-2) 

2474  Ppk1»1 .+3.4*Ep9i 

2475  Ppk2-11 .7+1 .8*Ppu*(-1/3) 

2476  Ppt*<Ep9i/8  )*Rei*Ppu 

2477  Pp2-<Ppkl+Ppk2*(Ep8i/8)".5*(Pr»“.BBBB-1 >> 

2478  Onega^Pp 1 /Pp2 

2479  END  IF 

2481  Hi*Kw/0i«Ci*0mega 
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248:  IF  If«-0  THEN  60T0  249t 

2483  Pt-PI*<Di+Dn 

2484  Al»(D>-Oi )*PI*{D1+0j  )«.5 

2485  HI»<Hx*P»/(Kcu*A1  ))*.5 

2486  P2»PI«<0i-*-D2 ) 

2487  A2-<D2-0i  )*PI*(Di+D2  )*.5 

2488  tt2»<Hi*P2/<Kcu*A2)>*.S 

2489  Fe1-FNTanh(M1*H  ) 

2490  Fe2-FNTanh(n2*L2  )/<M2»L2  ) 

2491  Dt-Q/(PI*Di«(L+Ll •Fel+L2*Fe2 )*Hi  ) 

2492  IF  Ihi-0  THEN 

2494  Cfc*< f1uua/FNMuu(  Tavg+Dt )  )* .  1 4 

2495  IF  ABS( <Cfc-Cf  )/Cfc  )>.001  THEN 

2497  Cf»<Cf+Cfc  )*.5 

2500  GOTO  2461 

2501  END  IF 

2503  END  IF 

2504  IF  Ihi-1  then 

2505  Prwfc*FNPru( Tavg+Dt ) 

2506  Rex fc*Uw*Di*FNRhou< Tavg+Dt )/FNMuu< Tavg+Dt  ) 

2507  IF  ABS< < Pruf c-Pruf  )/Pruf c  )> .001  OR  ABS( <Reifc-Rexf >/Rexfc >>.001  THEN 

2508  Pruf*(Prufe*Pruf>/2. 

2509  Reif-(Rexfc+Rexf  )/2. 

2510  GOTO  2461 

2511  END  IF 
2513  END  IF 
2516  Iffifto 

2521  Ho»1/< 1 /Uo-Do«L/<Di*<L+Ll*Fel+L2*Fe2 >»Hx  >“R«) 

2522  Tcf-Qp/Ho 

2525  Cp8C-FNCpu( ( Tcon+T steam  )* . 5  ) 

2526  Hfg-FNHfgITstean) 

2527  Tuo^Tstean-Qp/Ho 

2528  Tf xln*Tstean/3+Tuo*2/3 
2530  Kf-FNKw(Tfiln) 

2533  Rhof-FNRhow(Tfxlm) 

2536  l1uf-FNMuw<7filfi) 

2537  Hfgp»FNHfg<Tstean)+.68*FNCpu(Tftln>*(Tstean-Tuo ) 

2539'  Hpq-.651*Kf*<Rhof“2*9.81*Hfgp/(Huf*Do+0p )  >“.3333 

2541  HnuS8-.728*(Kf'3*9.81*Hfgp*Rhof"2/(l1uf*Do*(T5tean-Tuo)))''.25 

2542  Alpl«.728«Ho/Hnus8 

2548  Tfn( J-1 )-Tfiln 
2551  0pa(J-t)-0p 

2554  Y*Hpq*Qp*.3333 

2557  X-Op 
2560  Sx-Sx+X 
2563  Sy-Sy+Y 
2566  Sxs-Sxs+X*2 
2569  Sxy-Sxy+X*Y 
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2572  01-500 

2575  01o»8-Q1/(  100-25  )«(T5teaii-Troo«>  •  TO  BE  MODIFIED 

2584  Mdv-0 

2587  Bp-<Bvol*l00)*2/5.76 

2590  H5C-Cpsc*(T»tean-Tcon ) 

2593  Mdvc-( ( Bp-OIo#s  )-Mdv*H9C l/Hfg 

2596  IF  A6S((Mdv-Mdvc  )/ndvc  )>.0I  THEN 

2599  Hdv-(Hdv+Hdvc  )«.5 

2602  60T0  2593 

2605  END  IF 

2608  Hdv-(Mdv+Hdvc  )• .5 

2611  0g-FNUv9t(T9tean) 

2614  Ov-Mdv*Vg/Ax 

2620  F-(9.81*Do*Muf*Hfg)/(0v*2*Kf*(T9taaK»-Tyo)  1 

2623  Nu-Ho*Do/Kf 

2626  Rat-Vv*Rhof •Do/Muf 

2629  Nr-Nu/Rat*.S 

2630  Hfuj-.96*(9.81*Hfgp/Tcf  )*.2*Kf*.8*Uv*.l*Rhof*.5/(Do*Muf )*.3 
2635  IF  Iov-2  THEN 

2645  PRINT 

2647  PRINT  USING  *SX.**  Uw  Rei  Hi  Uo  Hfuj(DT) 

Hnu(DT)’“* 

2650  PRINT  USING  *SX  .Z .00 .1 X  .3(M2.3DE .1 X  )  ,3X  ,2( MZ .30E .3X )’ «Uw ,Rai .Hi  .Uo  ,Hfuj 
.Hnuss 

2651  PRINT 

2653  PRINT  USING  ‘SX,*'  Uv  Ho  Q  Tcf  Tfiln  T 

atn**  **  ** 

2655  PRINT  USING  'SX  ,Z.OO  .IX  .5<MZ.30E .IX  )“ »Vv  ,Ho .Op .Tcf  .Tf iln .Tstean 

2656  PRINT 

2658  ENO  IF 

2659  IF  Iov-1  THEN 

2660  IF  Ihi-1  THEN 

2661  PRINT  USING  *  1 1 X .00 .2X .2 .00 .IX .3< M0.30E . 1 X ) ,2( 30.00 .IX ) ,0.000“ » J  .Vu  .Uo  . 
Ho  .Op  .Tcf  .Tstaan  .Sra 

2662  PRINT  USING  “5X.**  Tfiln  “““iTfiln 

2664  ELSE 

2668  PRINT  USING  ’ 1 IX ,00 .4X .Z. 00  .2X .2(H0.30E .2X ) ,Z.30E .3X ,30.00 .ZX .30.00“ ;J  .Uw 
,Uo  .Ho  .Op  .Tcf  .Tataan 


2671 

ENO  IF 

2674 

ENO  IF 

2675 

IF  In-2  THEN 

2684 

IF  (IwiI-0  AND  I Job-1)  OR 

lwil>0  THEN  OUTPUT 

0FiIep«Op .Ho 

2694 

END  IF 

2707 

BEEP 

2708 

IF  In-1  THEN 

2709 

IF  (Iwil-0  AND  Ijob-1>  OR 

IyiI-1  THEN  OUTPUT 

iFilapiQp ,Ho 

271 1 

INPUT  “CHANGE  TCOOL  RISE? 

1-Y.  2-N“,Itr 

2712 

IF  ItP-1  THEN  GOTO  2384 
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27)3  BEEP 

2715  INPUT  ‘OK  TO  STORE  THIS  DATA  SET  (  l-Y  .0-N  )*>*  .Ok  s 

2716  IF  Oks-1  THEN 

2725  OUTPUT  •File;Bvol  .Banp  .Etp  .Fn  .T1  .T2  .Pvapi  .Pvap2  .Enf ( * ) 

2735  Alp2-Alp1+Alp2 

2749  ELSE 

2752  J-J-l 

2755  END  IF 

2758  BEEP 

2761  INPUT  “WILL  THERE  BE  ANOTHER  RUN  ( 1-Y  .0-N >?”  .6o_on 
2764  Nrun«J 

2767  IF  6o_on<>0  THEN  Repeat 

2770  ELSE 

2773  IF  J<Nrun  THEN  Repeat 

2776  END  IF 

2779  IF  Ijob-1  THEN  2809 
2782  IF  Iuil-0  THEN 
2785  ASSI6N  0File  TO  • 

2788  Ijob*1 

2791  Iwd-1 

2794!  CALL  Uilson<Ci  ) 

2797  In-2 

2800  ASSIGN  0Fxle  TO  D.fileS 

2803  60T0  1136 

2806  END  IF 

2809  IF  If 0-0  THEN 

2812  PRINT 

2815  Sl-(  Nrun«Sxy-Sy*Sx  )/<  Nrun*Sxs-Sx'‘2  ) 

2818  Ac-( Sy-Sl*Sx  )/Nrun 

2822  PRINT  USING  " 10X  .'"Least-Squares  Line  for  Ho  vs  q  curves'" 
2824  PRINT  USING  "10X,"  Slope  -  "  ,riD.4DE"  iSl 

2827  PRINT  USING  "10X."  Intercept  -  ",nD.4DE'>Ac 

2830  END  IF 
2833  BEEP 

28431  INPUT  "ENTER  SAME  TEMPORARY  PLOT  FILE  NAME"  .FplotS 
2853  ASSIGN  0Filep  TO  P_file* 

2863  FOR  1-1  TO  Nrun 
2873  ENTER  BFileptOp.Ho 

2883  Xc-L06(Qp/Ho) 

2884  Yc-L06(0p) 

2885  Zx-Zx+Xc 

2886  Zx2-Zx2+Xc"2 

2887  Zxy-Zxy+Xc*Yc 

2888  Zy-Zy+Yc 

2889  NEXT  I 

2890  Bb-.75 

2891  Aa-EXP<(Zy-Bb*Zx)/Nrun) 

2892  PRINT 
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28S3  PRINT  USING  *  1 0X  ,* "Least-squares  line  for  q  •  a*delta-T*b" " ‘ 

2894  PRINT  USING  •12X.*"a  -  " *  .HZ .40E' ;Aa 

2895  PRINT  USING  ’12X."*b  -  * "  .MZ .4DE" sBb 
299G  IF  Ift-0  THEN 

2897  IF  Ipc-0  THEN 

2898  0PS-2.5E+5 

2899  IF  Iic-0  then  Hop-9326 

2902  IF  Iic-1  then  Hop-10IGS*( .01 905/00 >*.33333 

2905  END  IF 

2908  IF  Ipc-t  THEN 

2911  QPS-7.5E+S 

2914  IF  Iic-0  then  Hop-71 7G 

2917  IF  Iic-1  THEN  Hop-7SG9*< .01 905/Do  )* .33333 

2920  END  IF 

2923  Hos-Aa'<1/Bb)*Qps''(<Bb-l  )/Bb) 

292B  IF  Ipc-0  THEN  Aas»2.32E+4 

2929  IF  Ipc-1  THEN  Aas-2.S9E+4 

2930  Alpsn-.876  ISUENSEN  DATA 

2931  IF  Iuil-0  THEN  GOTO  2959 

2933  Enrat-Alp2/Alpsn 

2934  Enr-Hos/Hop 

2935!  Enr-Aa/Aas 

2938  PRINT 

2941!  PRINT  USING  " 1 0X  .  * "Ualues  computed  at  q  -  "".Z.OD,*"  ( MU/n*2  ) : " *  * «Qps/ 1 
.E+6 

2944!  PRINT  USING  " 1 2X "Heat-transfer  coefficient  -  ,000.000 "  (kU/n*2.K) 

"•"»Hos/l000 

2947  PRINT  USING  " 12X  “Enhancement  ratio  (Del-T)  -  ""  ,20.30" lEnrat 

2950!  PRINT  USING  * 10X  ," "Enhancement  ratio  at  constant  Delta-T  •  *",DD.DD"5E 

nr 

2953!  PRINT  USING  " 10X ," "Enhancement  ratio  at  constant  q  -  "",DD.DD"jE 

nr* 1 .3333 

295G  ELSE 

2959  PRINT 

2962  IF  Ift-1  THEN 

2965  Aas-2687.2  !  ZEBROUSKI  (U  -  0.4  m/s) 

2968  Aas-2S57.0*( .01 905/00 >*.33333  •  VAN  PETTEN  (V  -  0.25  m/s) 

2971  END  IF 

2974  IF  Ift-2  THEN  Aas-9269.7*( .01 905/Do >* .33333 
2977  Edt-Aa/Aas 

2980  Eq-Edt*(4/3> 

2983!  PRINT  USING  " 1 0X  “Enhancement  <q)  -  "",DD.3D"»Eq 

2986!  PRINT  USING  " 1 0X  "Enhancement  (0el-T>  -  "*  ,00.30“ jEdt 

2989  ENO  IF 

2992!  IF  Im-I  THEN 

2995  BEEP 

2998  PRINT 

3001  PRINT  USING  "10X,“*NOTE:  *",Z2,*’  data  points  were  stored  in  file  "",10 


A“ i J ,D_file* 

3004!  END  IF 
3007  BEEP 
3013  PRINT 

3016  PRINT  USING  ■I0X,"NOTE:  “.ZZ.**  X-Y  pairs  yere  stored  m  data  file  "‘.10 
A’jJ  .Plots 
303 1  BEEP 

3073  ASSIGN  0File  TO  * 

3079  ASSIGN  BFilep  TO  * 

3080  PURGE  'DUMMY* 

3094  IF  1 80-2  THEN  CALL  Ray 
3100  IF  Iso-3  THEN  CALL  Uiison(Ci) 

3103  IF  Iso-4  THEN  CALL  Modify 
3106  IF  Iso-5  THEN  CALL  Purg 

3112  IF  Iso-E  THEN  CALL  Renan 

3113  IF  Iso-7  THEN  CALL  Mergefile 

3114  IF  Iso-8  THEN  CALL  Xyoutput 
3116  END 

3118  DEF  FNPvst(Tc) 

3121  COM  /Fid/  Ift  .Istu 
3124  DIM  K{3> 

3127  IF  Ift-0  THEN 

3 1 30  DATA  -7.691 234S64  .-26 . 08023696  .-168.1 706546  .64 . 23'’9S504  .-118. 9B48225 

3133  DATA  4. 1671 1732  ,20.9750676 .1 .E9. 6 

3136  READ  K<*) 

3139  T-(Tc+273. 151/647. 3 

3142  Sun-0 

3145  FOR  N-0  TO  4 

3148  Sun-Sun+K<N)*<  1-T)*(N-H  ) 

3151  NEXT  N 

3154  Br-Sun/<T*(  1 +K<  5  )♦<  1 -T  )+K<  6  )♦<  1 -T  1*2  )  >-(  1-T  >/(  K(  7  )*M -T  )*2»K(9  > ) 

3157  Pr-EXP<Br) 

3160  P-22l20000«Pr 

3163  END  IF 

3166  IF  Ift-1  THEN 

3169  Tf-Tc»1 .8+32+459.6 

3172  P-10'(33. 0655-4330. 98/Tf-9.2635*L6T(Tf  )+2.e539E-3*Tf ) 

3175  P-P*101325/14.696 

3178  END  IF 

3181  IF  Ift-2  THEN 

3 1 84  A-9 . 394685-3066 . 1 / ( Tc+273 .15) 

3187  P-133. 32*I0'A 

3190  END  IF 

3193  RETURN  P 

3196  FNEND 

3199  DEF  FNHfg(T) 

3202  COM  /Fid/  Ift. Istu 
3205  IF  Ift-0  THEN 
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3208  Hfg-2477200-24S0*(T-10) 

321  I  END  IF 
3214  IF  Ift-1  THEN 

3217  Tf-T*1,8+32 

3220  Hfo-7.0S578S7E+l>Tf*<4.338052E-2+l .261 9048E-4*Tf  ) 

3223  HfQ-Hfo*2326 

3226  END  IF 
3229  IF  Ift-2  THEN 

3232  Tk-T+273.15 

3235  Hfg-l .35264E+B-Tk*< 6 .38263E+2+Tk* .747462 ) 

3238  END  IF 
3241  RETURN  Hfg 
3244  FNENO 
3247  DEF  FNMuu(T) 

3250  COM  /Fid/  Ift  .latu 
3253  IF  Ift-0  THEN 
3256  A«247.8/<T+133. IS) 

3259  Mu-2.4E-S*10‘A 

3262  END  IF 
3265  IF  Ift-1  THEN 

3268  Mu-8. 962981 9E-4-T*( 1 . 1 094609E-5-T*S.566829E-8 ) 

3271  END  IF 
3274  IF  Ift-2  THEN 
3277  Tk-1/<T+273.15) 

3280  Mu-EXP(-11  .0179+Tk*(  1  .744E+3-Tk*(2.80335E+5“Tk*1  . 1266lEt-8  ) )  > 

3283  END  IF 

3286  RETURN  Mu 

3289  FNENO 

3292  DEF  FNUvstiTt) 

3295  COM  /Fid/  Ift  .Istu 
3298  IF  Ift-0  THEN 
3301  P-FNPvst<Tt) 

3304  T-Tt+273.15 

3307  X-1500/T 

3310  F1-1/( 1+T*1 ,E-4) 

3313  F2-( 1-EXP<-X  )  )“2 .5*EXP< X  l/X' .5 

3316  B- . 00 1 5*F 1  - . 000942  *F2- . 0004882  *X 

3319  K-2*P/<461 .52*T ) 

3322  U-< l+( 1+2*B*K  )“.5)/K 

3325  END  IF 
3328  IF  Ift-1  THEN 
3331  Tf-Tt*I.8+32 

3334  U-1 3. 9553S7-Tf»( .16 127262-Tf *5.17261906-4) 

3337  U-U/16.018 

3340  END  IF 
3343  IF  Ift-2  THEN 
3346  Tk-Tt+273.15 

3349  P-FNPvst<Tt) 
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3352  y-133.95*Tk/P 

3355  END  IF 

3358  RETURN  U 

336 1  FNEND 

3364  DEF  FNCpu(T) 

3367  COM  /Fid/  Ift  .Istu 
3370  IF  Ift-0  THEN 

3373  Cpw-4 .211 20858-T* ( 2 . 26826E-3-T*(  4 . 4236 1 E-S+2 . 7 1 42eE“7«T  ) ) 

3376  END  IF 
3379  IF  Ift-1  THEN 

3382  Cpw-9 . 2507273E- 1 ♦T*  <  9 . 3400433E-4+ 1 . 7207792E-B*T  ) 

3385  END  IF 

3388  IF  Ift-2  THEN 

3391  Tk-T+273.15 

3394  Cpw-4. 1868*< 1 .G884E-2+Tk*{3.35083E-3-Tk*<7.224E-6-Tk*7.61748E-9  ) ) ) 

3397  END  IF 

3400  RETURN  Cpu*1000 

3403  FNEND 

3406  DEF  FNRhow(T) 

3409  COM  /Fid/  Ift  .Istu 
3412  IF  Ift-0  THEN 

3415  Ro-999.52346+T*< .0l269*T*<5.4825l3E-3-T*l .234147E-5 > ) 

3418  END  IF 
3421  IF  Ift-1  THEN 

3424  Ro- 1 . 6207479E+3-T*( 2.21 86346+T«2 .3578291 E-3  ) 

3427  END  IF 

3430  IF  Ift-2  THEN 

3433  Tk-T+273. 15-338. 15 

3436  Uf-9 . 24848E-4+Tk* ( 6 . 2796E-7+Tk* (  9 . 2444E- 1 0+Tk *3 . 057E- 12)) 

3439  Ro-l/Uf 

3442  END  IF 
3445  RETURN  Ro 
3448  FNEND 
3451  DEF  FNPrw<T) 

3454  Pru-FNCpw<  T )*FNMuw(  T )/FNKu<  T ) 

3457  RETURN  Prw 
3460  FNEND 
3463  DEF  FNKw<T) 

3466  COM  /Fid/  Ift  .Istu 

3469  IF  Ift-0  THEN 

3472  X-(T+273.15)/273.1S 

3475  Kw— .92247+X*(2.8395-X*( 1 .8007-X*(  . 52577-. 07344*X )) > 

3478  END  IF 
3481  IF  Ift-1  THEN 

3484  Kw-8 . 2095238E-2-T* ( 2.221 4286E-4+T*2 . 3809524E-8 ) 

3487  END  IF 
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3490  IF  Iff 2  THEN 
3493  Tk-T>273.15 

3496  Kw-4.1868E-4*(519.442f.320920*Tk ) 

3499  END  IF 
3502  RETURN  Kw 
3505  PNENO 
3508  DEF  FNTanh<X) 

35 n  P-EXP(X) 

3514  Q-EXP(-X) 

3517  Tanh-(P-Q)/<P+Q) 

3520  RETURN  Tanh 

3523  FNEND 

3526  DEF  FNTv9v(V) 

3529  COM  /Cc/  C<7) 

3532  T-C(0) 

3535  FOR  f1  TO  7 
3538  T-T+C<I)*U*I 

3541  NEXT  I 

3544!  T-T+4.73386E-3+T*(7.692834E-3-T*8.077927E-5) 

3547  RETURN  T 
3550  FNEND 
3553  DEF  FNHf(T) 

3556  COM  /Fid/  Ift  ,Iatu 
3559  IF  lft»0  THEN 

3562  Hf-T*<4.203849-T«(5.88l32E-4-T*4.55l60317E-6 )) 

3565  END  IF 

3568  IF  Ift-1  THEN 

3571  Tf-T*l.8+32 

3574  Hf-8.2078571+Tf*( .194678S7+Tf*l .3214286E-4) 

3577  Hf-Hf*2.326 

3580  END  IF 

3583  IF  Ift-2  THEN 

3586  Hf-250  •  TO  BE  VERIFIED 

3589  END  IF 

3592  RETURN  Hf*1000 

3595  FNEND 

3598  DEF  FN6rad(T) 

3601  6rad-37.9853+. t04388*T 

3604  RETURN  6rad 
3607  FNEND 
3610  DEF  FNTvsp<P) 

3613  Tu-190 

3616  Tl-10 

3619  Ta-<Tu+Tl  )*.5 
3622  Pc-FNPv9t(Ta) 

3625  IF  ABS<(P-Pc)/P)>.0001  THEN 
3628  IF  Pc<P  THEN  Tl-Ta 

3631  IF  Pc>P  THEN  Tu-Ta 
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3634  GOTO  3619 
3637  END  IF 
3640  RETURN  Ta 
3643  FNENO 
6646  DEF  FNSiona<T) 

6649  X-647.3-T-273.15 

6652  S-. 11 60936807 /< 1 +  .83*X  )+l . 1 2U04688E-3-5. 7528051 8E-6*X+1 .28627465E-8*X*2- 

.14971929E-11»X"3 

6655  RETURN  S*.001*X‘'2 

6658  FNENO 

6661  SUB  Raw 

6662  COM  /Fid/  Ift  .Istu 
6664  DIM  X(Z6) 

6670  INPUT  ‘ENTER  TUBE  NUMBER*  .Itn 
6676  INPUT  ‘ENTER  FILE  NAME‘.FileS 

6679  ASSIGN  0FiIa  TO  FileS 

6680  INPUT  ‘STUDENT  (0-Suensen)‘ .Istu 

6681  INPUT  ‘SMOOTH  OR  FINNED  (0-SMOOTH.  1-FINNED )“  .Ifg 
6683  INPUT  ‘ENTER  TUBE  SIZE  ( 0-S  .  1 -M .2-L  .3-OMC  )‘ .Itds 
6685  INPUT  ‘ENTER  PRESSURE  CONDITION  (0-U .1 -A  ) ‘  .Ipc 
6688  IF  Ipc-0  AND  Ift-0  THEN  Us-2 

6691  IF  Ipc-0  AND  Ift-2  THEN  Us-10 

6692  IF  Ipc-1  AND  Ift-0  THEN  Us-1 

6693  IF  Ipc-1  AND  Ift-1  THEN  Vs-. 25 

6694  IF  Istu-1  THEN  Vs-2 
6696  Nrun«18 

6700  INPUT  ‘ENTER  NUMBER  OF  RUNS"  .Nrun 
6703  PRINTER  IS  701 
6706  PRINT 

6709  PRINT 

6710  IF  Istu-0  THEN  PRINT  USING  '10X.“Oata  of  Swensen“‘ 

6715  IF  Ift-0  THEN  PRINT  USING  ‘10X. “Vapor  is  steai«i“‘ 

6716  IF  Ift-1  THEN  PRINT  USING  ‘10X. “Vapor  is  R-113‘“ 

6717  IF  Ift-2  THEN  PRINT  USING  ‘10X, “Vapor  is  ethylene  glycol""" 

6719  IF  Itds-0  THEN  PRINT  USING  ‘10X.“Tube  diameter :  Snail 

6720  IF  Itds-1  THEN  PRINT  USING  ‘10X.“Tube  diameter:  Medium" "‘ 

6721  IF  Itds-2  THEN  PRINT  USING  ‘10X.“Tube  diameter;  Large""" 

6722  IF  Itds-3  THEN  PRINT  USING  ‘10X.“Tube  diameter:  0MC‘“ 

6724  PRINT 

6725  PRINT  USING  *10X. “Tube  Number;  “.ZZ‘jItn 

6726  PRINT  USING  ‘10X, “File  Name:  “,14A‘jFile» 

6727  IF  Ifg-0  THEN  PRINT  USING  •10X.“Tube  Type:  Smooth"*" 

B728  IF  Ifg-1  THEN  PRINT  USING  ‘10X.“Tube  Type:  Finned""" 

6730  IF  Ipc-0  THEN 

B731  PRINT  USING  " 10X  .“Pressure  Condition;  Vacuum""* 

6732  ELSE 

6733  PRINT  USING  ‘  10X  .“Pressure  Condition:  Atmospheric""" 

6734  END  IF 
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6735!  PRINT  USING  'lex.^Uapor  Velocity:  "‘.DO. DO,”  <n/5)""»U9 

6736  ENTER  9Filej Ifg  ,Inn 

6739  IF  Itd8-1  OR  Itd#-2  THEN  Oi».0127 

6742  IF  Itds-0  OR  Itds-S  THEN  Oi-.00S525 

6747  ENTER  0File;Iwt  .Fp.Fu.Fh 

6748!  IF  l9tu-0  AND  Ifg-l  THEN 

6749  IF  Inan*7  THEN 

6751  Fp-Fp-1 

6752  PRINT  USING  "lOX.^’Fin  spacing,  width  and  height  (nn):  " ‘ .DD.DD  .2X  .Z .DD 
.2X.Z.DD*iFp.Fu.Fh 

6753  END  IF 

6756  PRINT 

6757  PRINT  USING  *l0X.""Data  Uu  Tin  Tout  Ts""" 

6758  PRINT  USING  "10X.“*  t  (tn/s)  (C)  (C)  (C)""" 

6760  PRINT 

6763  FOR  I-l  TO  Nrun 
6766  ENTER  9File:X(*> 

6769  Ts-FNTvav57(<X<8)+X(9))/2.  ) 

6770  Ta-Ts-273.15 

6772  Fn»X(3) 

6775  Tl-X(4) 

6778  T2-X<5) 

6781  Tavg-(T1+T2  )*.5 

6784  Ift-0 

6785  Rhow*FNRhow< Tavg ) 

6787  Md-<6.740g*Fn+l3.027)/1000. 

6790  Md-Md*(  1 .0365-1 .96G44E-3*Tl+5.252E-6*Tr2  >/1  .0037 

6793  Mf-Md/Rhow 

6796  Uwrif/<PI*Di''2/4) 

6799  IF  Inn-0  AK '  Uu>.5  THEN  T2-T2-(-2.73E-4+1 .75E-4*Uw+9.35E-4*Uw*2-l .96E-5 

♦Uu"3) 

6809  IF  Inn-1  THEN  T2-T2-( -6 .44E-5+1 .71E-3*Uu+4.45E-4*Uu"2+4 .07E-5*Uw"3 ) 

6810  IF  Inn-2  THEN  T2-T2-(-3.99E-4+2.75E-3*Uu+l .45E-3«Uw"2+8. 16E-5*Vw*3  ) 

6811  IF  Inn-3  THEN  T2-T2-( 8.57E-5+1 .23E-3*Uw+l .08E-3*Uw"2+8. 16E-5*Uw"3 ) 

6814  PRINT  USING  " 1 0X .00 .5X ,D.DD .3X ,2< DD.DD  ,3X  )  ,DDD .DD" » I  ,Uu  .T1  .T2  .Ta 

6817  NEXT  I 

6820  ASSIGN  9File  TO  • 

6823  SUBENO 

6826  SUB  Uilaon(Ci  ) 

6829  con  /Uil/  Nrun .Itn.Iwth ,Inc .Ife .1 job ,Iwd .Ifg ,Ipco .Ifto.Iwll ,Ihi .loc  ,Inan ,K 
cu  ,Rexp  ,Ri*i  ,Ax 

6832  COM  /Fid/  Ift.Iatu 

6833  COM  /Geon/  Dl .D2 .Dl  .Do ,L .LI  .L2 

6834  COM  /Fric/  latuo  .Inn  ,Ityp  ,Uu  .Inario  ,Inco  .Itda 

6836  DIM  Enf  <  20 )  .Bvo<  42  )  ,Ban(  42  )  .Eata(  42  )  .Ear(  42  .7 )  ,Fna(  42  )  .T1  a(  42  >  .T2a<  42  ) 

6845  IF  Ioc-0  THEN 

6847  PRINT  USING  * 16X  ‘Nuaaelt  theory  is  used  for  Ho*"* 

6848  ELSE 
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B849  PRINT  USING  ’)6X,*"Fujii  correlation  used  for  Ho*"’ 
G850  END  IF 
6853  BEEP 

6856  INPUT  "RE-ENTER  DATA  FILE  BEING  PROCESSED*  .D  files 
6859  BEEP 

6862  INPUT  "GIUE  A  NAME  FOR  XY  PLOT-DATA  FILE"  .Plots 
6865  CREATE  BOAT  Plots. 30 
6868  ASSIGN  01o_path  TO  Plots 
6871  Jj-0 

6874  ASSIGN  BFile  TO  D^fileS 

6877  ENTER  fFilej Ifg  .Inn 

6878  IF  Istu-0  THEN 

6883  ENTER  0File;Odd  .Odd  .Odd  .Odd 

6884  ELSE 

6885  IF  Ifg-0  THEN  ENTER  CFilesIut 

6886  IF  Ifa-1  THEN  ENTER  SFi lejFp  .Fu  .Fh 

6887  END  IF 

6888  IF  Istu-l  AND  Inn-1  THEN  Inn-2 
6890  IF  Jj-0  THEN 


6895 

IF 

Ihi-0 

AND  Inn-0  THEN 

Ci-.027 

6896 

IF 

Ihi-0 

AND  Inn-2  THEN 

Cl-. 05 

6897 

IF 

Ihi-0 

AND  Inn-3  THEN 

Ci-.07 

6899 

IF 

Ihi-1 

OR  Ihi-2  THEN 

6900 

IF 

Inn-0 

THEN  Ci-1 .0 

6902 

IF 

Inn-2 

THEN  Ci-2.0 

6903 

IF 

Inn-3 

THEN  Ci-2.S 

6904 

ENQ 

1  IF 

6906 

IF 

IfQ-0 

THEN  Alp-1 .2 

6907 

IF 

Ifg-t 

THEN  Alo-2.6 

6908 

IF 

Ift-2 

AND  Ifg-1  THEN 

Alp-5.0 

6903 

END  IF 

6910 

J-0 

691 1 

Sx-O 

6913 

Sy-0 

6916 

Sxs-0 

6919 

Sxy-0 

6922'  READ  DATA  FROM  A  USER-SPECIFIED  FILE  IF  INPUT  MODE  (In)  -  2 

6925  IF  Jj-0  THEN 

6926  IF  Istu-0  THEN 

6931  ENTER  CFileiGvol  .Banp  ,Etp .Fn .Tl ,T2  .Pvapi  ,Pvap2  ,Enf( * ) 

6932  ELSE 

6934  ENTER  •Fi le;Bvol .Banp  .Utran .Etp  .Enf ( 0 )  .Enf ( 1  )  ,Enf ( 2  )  .Enf <  3  )  .Enf ( 4 ) .F 

n.Tl  .T2  .Phg.Pwater 
6936  END  IF 

6938  Bvo<J)-Bvol 

6939  Ban( J  >-Banp 

6940  Eata(J)-Etp 

6943  Ear(  J,0>-Enf(0> 
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6946  Ear< J  .1  )-£nf( t  ) 

6949  E«r(J.2)-Emf(Z) 

6952  Ear(  J.3)-Epif(3) 

6955  Ear{  J  .4)-Enf(4) 

6956  IF  Iatu-1  THEN  60T0  6961 

6958  Ear< J  ,S)-Enf(5) 

6959  Ear< J  ,6  )-Enf<6 > 

6960  Ear(  J  ,7)-Enf(7) 

6961  Fna(J)»Fn 

6962  T1a(J)-Tt 

6964  T2a<J)-T2 

6967  ELSE 

6970  Bvol*6vo(J) 

6973  Bann«6an( J  ) 

6976  Etp-Eata(J) 

6979  EnfC0)-Ear( J  ,0) 

6982  Enfd  )-Ear(  J  .1  ) 

6985  E«f(2>-Ear(  J  .2) 

6988  Enf(3)-Ear(  J.3) 

6991  Enf(4)-Ear< J  .4) 

6992  IF  l9tu-1  THEN  60T0  6997 

6994  Enf<5)-Ear(  J  .5) 

6995  Enf < 6 )«Ear< J  ,6  ) 

6996  Enf(7)-Ear<  J  .7) 

6997  Fn*Ftna(  J  ) 

6998  T1"T1a(J> 

7000  T2-T2a<J) 

7003  END  IF 

7004  IF  Istu-0  THEN 

7006  T9teaml«FNTv9v57(Emf(0) ) 

7007  Tste8Ml-T9teai*i1-273. 15 

7008  Tstea«2»FNTvsv57(Enf( 1 ) ) 

7009  Tstean2-Tateai«i2-273.  IS 

7010  Tstean*Tstean1 

7011  Troon*FNTv9vS8( Enf < 2  ) ) 

7012  Troon"Tpoon-273. 15 

7013  Tc{>n»FNTv9vS8<  Enf  <  7  ) ) 

7014  Tcon«Tcon-273. 15 

7016  Ti1-FNTv9v58(Enf(3) ) 

7017  To1-FNTv9v58(Enf(4)) 

7018  Til-Til-273. 15 

7019  Tol-Tol-273. 15 

7020  Tdell-Tol-Til 

7021  Tdal2-T2-T1 

7023  Etp1-Enf<3)+Etp/20. 

7024  Ot da-2 . 593 1 E-2- 1 . 50464E-6*Etp 1  + 1 . 2 1 70 1 E- 1 0«E tp 1 *2-5 . 1 1 64E- 1 S*Etp 1  *  3+3 . 2 
201E-19*Etp1*4 

7025  Tpi9-Dtda*Etp/10. 
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7026  To3-Ti1+Tris 

7028  ELSE 

7023  Tfttcan>FNTvsv(Enf (0) ) 

7030  Txl-FNTvsv(Einf<2)) 

703 1  6rad»FN6rad< (T1+T2  )*.5) 

7032  Tol-Ti1+ABS<Etp  )/( 10*6rad  )«1 .E+B 

7033  END  IF 

7034!  CALCULATE  THE  L06-HEAN-TEMPERATURE  DIFFERENCE 

7035  IF  Iatu-0  AND  Itn-0  THEN 

7036  Tcin»Txl 

7037  Tcout"To1 

7038  END  IF 

7039  IF  Itn-1  THEN 

7040  Tcin«T1 

7041  Tcout»T2 

7042  END  IF 

7043  IF  Itn-2  THEN 

7044  Tcin"Ti1 

7045  Tcout“To3 

7046  END  IF 

7047  TavQ^ITcin+Tcout  )* .5 

7048  Tri8e“Tcout-Tcin 
7049'  PRINT  Trisa 

7055  lft*0 

7056  Cpw»FNCpw< Tavg ) 

7057  Rhou*FNRhow<  T  avg ) 

7058  Kw-FNKw(Tavg) 

7059  f1uwa*FNf1uw<  Tavg ) 

7060  Ppw»FNPru( Tavg ) 

7061  Ift-Ifto 

7062  IF  Istu-0  THEN 

7063  Mdt -( 6 . 7409*Fn+ 1 3 . 027  )/ 1 000 . 

7064  Md-Mdt*< 1 .0365-Tcin*< 1 ,96B44E-3-Tcin*5.252E“B  > )/l .0037 

7065  ELSE 

7066  Mdt-1 .04805E-2+6.80932E-3*F« 

7067  Md-I1dt*< I .0365-Tcin*( I .96644E-3-Tcin*5.252E-B  ))/. 995434 

7068  END  IF 

7069  Uf-Md/Rhow 

7070  Uu-Uf/<PI*0i'2/4) 

7071  Tcor»FNTfric<  Tnse ) 

7072  Trisa^Tcor 

7073  Tcout“Tcin+Tri8e 

7074  Lntd«Trisa/L06( ( Tstaan-Tcin  )/(Tstea«~Tcout ) ) 

7077  Cpsc*FNCpu( < Tcon+Tstaaw  )*.5  > 

7078  Hfg»FNHfg( Tstean ) 

7079  01-500 

7080  01oss-01/<  100-25  )*(Tstaa«-Tpoofi)  !  TO  BE  MODIFIED 
7082  Hdv-0 
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7084  Bp«(Bvol*100 >*2/5.76 

7085  H9c*Cp8c*( Tst«an*Tcon ) 

7086  f1dvc"<  (Bp-'Closs  )-Mdv*Hsc  )/HfQ 

7088  IF  ABS( (ndv>ndvc  )/ndvc ».0>  THEN 
7090  Hdv-<  ndvt’Hdvc  )• .  5 

7092  60T0  7086 

7094  END  IF 
7096  ndv<Hdv+Mdvc  >*.5 
7098  Vo«FNVv#t(T8tean) 

7100  Vv»Mdv«VQ/Ax 
7108  Q"f1d*Cpw*Tpi9e 
7111  Qp-Q/(PI*Do*L) 

7114  Uo-Qp/Lntd 

7115!  PRINT  Trise  ,Uu  ,0 ,0o  ,L  ,0p  ,Lntd .Uo 
7117  Rei*Rhow*1>w*0i /Muua 
7120  Fe1-0. 

7123  Fe2-0. 

7126  Cf-1. 

7127  Pruf-Pru 

7128  Rexf-Rei 

7131  Two*Tstaan-5 

7132  Tf xln*T9taan/3+Tuo*2/3 
7135  Kf-FNKu(Tfiln) 

7138  Rhof-FNRhow<Tfiln) 

7141  Muf-FNMuw<Tfiln> 

7144  HfQp»FNHfo( Tatean )+.68*FNCp«(Tf iln )«(T9tean-TMO ) 

7145  IF  Ioc-0  THEN 

7147!  NewKf*(Rhof*2*9.81*Hfop/(nuf*Oo*Qp))*.3333 

7148  New-<Kf*3*9.81*HfQp«Rhof*2/<P1uf«Do*(T9teaw-Two) )  >*.25 

7150  ELSE 

7153!  New-Kf*(<9.8I*Hfap/Qp)*.25)*(<Huf*Do)“{-.375))*(Rhof".625>*(Vv*.125) 

7 1 54  Neu-(  9 . 8 1  ♦Hf  gp / <  Ta t earn-Tuo  ) ) * .  2*K f  * .  8*Vv “ .  1  •Rhof  *  . 5/  ( Do«Mu f  )  * .  3 

7156  END  IF 

7159  Ho»Rlp*New 

7162  Tuoc«T9tean-Qp/Ho 

7165  IF  ABS(<Tuoc-Two)/Twoc >>.001  THEN 

7168  Two"Tuoc 

7171  GDTO  7132 

7174  END  IF 

7184  IF  Ihi-0  THEN 

7186  OmeQa»Rei''Rexp*Pry*  .3333*Cf 

7187  END  IF 

7188  IF  Ihi-1  THEN 

7189  Spa-.88-( .24/(4. +Ppwf) ) 

7 1 90  Srb- . 333333+ . S*EXP( - . B*Prwf ) 

7191  O«aoa»(5.  +  .015*Reif “Spa*Pryf *Srb  > 

7192  END  IF 

7193  IF  Ihl-2  THEN 
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719A  Epsi»( 1 .82*L6T(Rei  )-l .64)'<-2) 

7195  Ppk1*t  .•♦■3.4«Ep5i 

7196  Ppk2-1 1 .7+1 .8«Prw*(-l/3> 

7197  Ppl«(Ep9l/8  )*Rei«Pru 

7198  Pp2-{Ppkl+Ppk2*(Ep9i/8)'‘.5*(Pru*.BB6B-l  )) 

7199  Onega*Ppl /Pp2 

7200  END  IF 

7202  Hi*Ku/Oi*Ci*Onega 

7203  IF  If«-0  THEN  7216 

7204  Pl-PI*(Di+Dl  ) 

7205  P2-PI*(Di+D2) 

7206  Al-(DI-Dx  )*PI*(Di+Dl  )*.S 

7207  R2-(D2-0i )*PI*<0i+02 )*.5 

7208  ni-(Hi*Pl/(Kcu*Rl  ))“.S 

7209  H2-(Hi*P2/(Kcu*A2 ) )*.5 

7212  FeI-FNTanh(Ml*LI  )/(m«L1  ) 

7213  Fe2«FNTanh<fl2*L2)/<n2*L2) 

7216  Dt-Q/(PI*0i*<L+Ll*Fel+L2*Fe2)*Hi ) 

7217  IF  Ihi-0  THEN 

7219  Muwi*FNMuy( Tavg+Ot ) 

7222  Cfc-(Muua/f1uui  )*.  14 

7225  IF  RBS(<Cfc-Cf  )/Cfc)'>.001  THEN 

7228  Cf-(Cf+Cfc  )*.5 

7231  SOTO  7184 

7232  END  IF 

7234  END  IF 

7235  IF  Ihi-1  THEN 

7236  Prufc*FNPrw( Tavg+Dt ) 

7237  Rex  fc*Vw*Dx«FNRhou<  Tavg+Dt  )/FNMuw( Tavg+Dt ) 

7239  IF  ABS< (Prufc-Pruf )/Prwfc )>.001  OR  ABS( (Reifc-Rexf l/Rexfc  )>.00I  THEN 

7240  Pruf*( Prufc+Prwf  )/2 . 

7241  Reif-(Rexfc+Reif  )/2. 

7242  SOTO  7184 

7243  END  IF 

7245  END  IF 

7246  Ift-Ifto 

7247  X*Do*New*L/<Onaga*Ky*<  L+L1 •Fel+L2*Fe2  ) ) 

7248  Y-Ney*( 1/Uo-Rn) 

7249!  CDMPUTE  CDEFFICIENTS  FOR  THE  LEAST-SOUARES-FIT  5TRAI6HT  LINE 

7250  IF  Jp-1  THEN  OUTPUT  0Io_jjath»X  ,Y 

7252  Sx-Sx+X 

7255  Sy-Sy+Y 

7258  Sx9-Sxs+X*X 

7261  Sxy*Sxy+X*Y 

7264  IF  Ifi-1  AND  Jj-0  THEN  OUTPUT  IFx lejBvol  .Banp  .Etp  .Fn  .T1  .T2  .Pvapl  .Pvap2  .Emf ( 

•  > 

7267  J-J+1 

7270  IF  J<Nrun  THEN  6925 
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7273  Sl«( Nrun«Sxy-Sy«Sx )/(Nrun*Sx»-Sx*2  > 
7276  IF  Iwil-2  THEN 

7286  IF  Ihi-0  AND  Inn-0  THEN  SI-!/. 027 

7287  IF  Ihi-0  AND  Inn-2  THEN  S1-I/.0S 

7288  IF  Ihi-0  AND  Inn-3  THEN  S1-1/.07 

7289  IF  Ihi-1  OR  Ihi-2  THEN 

7291  IF  Inn-0  THEN  Sl-1/1.0 

7292  IF  Inn-2  THEN  Sl-1/2.0 

7293  IF  Inn-3  THEN  S1-1/2.S 

7294  END  IF 

7296  END  IF 

7297  Ac-< Sy-Sl*Sx )/Nrun 

7298  Cic-1/Sl 
7300  Alpc-1/Ac 
7303  Jj-Jj+1 

7306  IF  Jp-1  THEN  Jp-2 
7309  Cerr-ABS< ( Cic-Ci  )/Cic ) 

7312  Aerr-ABS< < Alpc-Alp  )/Alpc ) 

7315  IF  Cerr>.001  OR  Aerr>,001  THEN 
7318  Ci-(Cic+Ci  .5 

7321  Alp-( Alpc+Alp  )* .5 

7324  BEEP 

7327  IF  IJob-1  THEN  6910 

7330  ELSE 

7333  IF  Jp-0  THEN  Jp-1 

7336  END  IF 
7339  IF  Jp-1  THEN  6874 
7342  Ci-(Ci+Cic  )«.5 
7345  PRINT 


7346 

IF  Ihi-0 

THEN 

7348 

PRINT 

USING  *10X,"*Ci 

(based  on 

Sieder-Tate ) 

- 

"  .Z.4D“;Ci 

7349 

END  IF 

7350 

IF  Ihi-1 

THEN 

7351 

PRINT 

USING  *10X.’*Ci 

(based  on 

Sleicher-Rouse ) 

- 

"  ,Z.4D"»Ci 

7352' 

PRINT 

USING  •10X,"*Ra 

exponent  ■ 

for  Sleicher-Rouse 

• 

"  ,D.DDO"«Sra 

7353 

END  IF 

7354 

IF  Ihi-2 

THEN 

7355 

PRINT 

USING  'IGX/’Ci 

(based  on 

Petukhov-Popov ) 

• 

"  .Z.40*;Ci 

7356 

END  IF 

7357 

IF  Ioc-0 

THEN 

7358 

PRINT 

USING  *I0X. "Alpha  (based 

on  Nusselt  (Tdel ) ) 

• 

"  .Z.4D"jAlp 

7359 

END  IF 

7360 

IF  Ioc-1 

THEN 

7361 

PRINT 

USING  ‘10X," Alpha  (based 

on  Fuji!  (Tdel ) > 

• 

"  ,Z.4D*;Alp 

7362  END  IF 

7363  IF  Inan-5  OR  Inan-6  THEN 

7364  IF  Ihi-0  THEN 

7366  IF  Ipco-0  AND  Inn-0  THEN  Alpsn-.8218  !NO  INSERT  .VACUUM .S-T 
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7367 

7363 

7363 

7371 

7372 

7373 

7374 

7375 

7376 
7378 
7373 

7380 

7381 

7382 

7383 

7385 

7386 

7387 

7390 

7391 

7392 

7393 

7394 
7396! 

7397 

7398 

7399 

7401 

7402 

7403 

7404 

7405 

7406 

7407 

7408 

7409 

7410 

7519 

7520 
7522 
7525 
7S28 
7531 
7534 
7537 
7540 
7543 


IF 

Ipco-l 

AND 

Inn-0 

IF 

Ipco-0 

AND 

Inn' 

•3 

IF 

Ipco-1 

AND 

Inn-3 

ENC 

1  IF 

IF 

Ihi 

-I  THEN 

IF 

Ipco-0 

AND 

Inn-0 

IF 

Ipco-1 

AND 

Inn-0 

IF 

Ipco-0 

AND 

Inn-3 

IF 

Ipco-1 

AND 

Inn* 

■3 

ENC 

1  IF 

IF 

Ihi 

-2  then 

IF 

Ipco-0 

AND 

Inn-0 

IF 

Ipco-I 

AND 

Inn-0 

IF 

Ipco-0 

AND 

Inn-3 

IF 

Ipco-1 

AND 

Inn-3 

THEN  Alp5«*.7793 
THEN  Alpsn«.78S4 
THEN  Alpsn-.7769 


THEN  Alpsn*.86t3 
THEN  Alpsn-.aZia 
THEN  AlpsKf.7791 
THEN  Alps««.7929 


THEN  Alpsn*.8205 
THEN  Alps»*.7654 
THEN  Alpsn-.7B70 
THEN  Aipsn«.770a 


!N0  INSERT  .ATMOSPHERIC  .S-T 
tHEATEX  .VACUUM  .3-T 

iheatex  .atmospheric .S-T 


INO  INSERT. VACUUM. S-R 
‘NO  INSERT. ATMOSPHERIC, S-R 
'HEATEX  .VACUUM .S-R 
•HEATEX  .ATMOSPHERIC .S-R 


'.NO  INSERT  .VACUUM  .P-P 
'.NO  INSERT  .ATMOSPHERIC  .P-P 
'HEATEX .VACUUM  .P-P 
•HEATEX .ATMOSPHERIC  .P-P 


END  IF 
END  IF 

IF  In«n«4  THEN 

IF  Ipco-1  THEN  Alpan«.87S  (SWENSEN  DATA  9ASE0  ON  DEL-T 


END  IF 

IF  ln«n»0  OR  Ina«*3  OR  Inan*7  THEN 

IF  Ipco-0  THEN  Alpsn-.Sl  1C0B8  VTSMTHl 

IF  Ipco-1  THEN  Aipsn».8S  ICOBB  ATSMTHl 

IF  Ift-1  THEN  Alpin-.733  IZEBROWSKI  <V  -  0.45  «/»> 
IF  Iffl  THEN  Alpsn-.677  'VAN  PETTEN  (V  -  0,25  ci/s) 
IF  Iff2  THEN  Alpsn-I.2S2 
END  IF 

IF  Inawl  then  (MlTROU  ALPHA  FOR  P-P  FROM  REPROCESSING 
IF  Ipco-0  THEN  Alp9n-.8437 

IF  Ipco-1  THEN  Alp9in«.3418 

END  IF 


Et-Alp/Alpsn 
Eq-Et' 1 .333333 

PRINT  USING  "10X  .'•Enhancenant  (q)  -  **,00.30*;Eq 

PRINT  USING  't0X,**Enhancenent  (Oel-T)  -  •*.D0.30*;Et 

ASSIGN  #File  TO  • 

SUBENO 
SUB  Modify 
COM  /Fid/  Ift.Istu 
DIM  Enf<20) 

BEEP 

INPUT  'ENTER  NAME  OF  FILE  TO  BE  MODIFIED*  .Fileot 
ASSIGN  •FUao  TO  FilaoS 
CREATE  BOAT  'TEST' ,30 
ASSIGN  GFliad  TO  'TEST' 

ENTER  0Fiieo»Ifa.Inn 
OUTPUT  tFiladjIfg.Inn 
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7544  IF  I#tu-0  THEN 

7546  ENTER  fFileoj lut .Fp .Fu .Fh 

7547  OUTPUT  •Fi led; lut .Fp .Fu  .Fh 
7546  ELSE 

7549  IF  If 0-0  then 

7551  ENTER  0FileoiIut 

7552  OUTPUT  #Filed;Iut 

7553  END  IF 

7554  IF  Ifg-I  THEN 

7555  ENTER  0Fi leo;Fp  .Fw  .Fh 

7556  OUTPUT  0FilediFp .Fw.Fh 

7557  END  IF 

7559  END  IF 

7560  BEEP 

7561  INPUT  -ENTER  NUMBER  OF  OATR  SETS  STORED*  .N 

7562  FOR  1-1  TO  N 

7563  IF  l8tu-0  THEN 

7565  ENTER  6Fileo;Bvol ,Banp  ,Etp .Fn  ,T1  ,T2  .Pvapi  ,Pvap2  ,Enf ( *  ) 

7566  ELSE 

7567  ENTER  BFileoiBvol ,Banp  .Utran .Etp  .Enf ( 0 )  .Enf ( 1  )  .Enf(2 )  .Enf<3  >  .E«f(4) . 
Fn  ,T1  ,T2  ,PhQ  .Pwater 

7568  END  IF 

7570!  PERFORM  CORRECTIONS 

7571  PRINT  USING  ■2X.--00  YOU  WISH  TO  DELETE  POINT*  ■  .DO  I 

7572  INPUT  -0-YES.  1 -NO*  .  I  del 

7573  IF  Idel-0  THEN  7580 

7576  IF  Istu-0  THEN 

7577  OUTPUT  0Fi led;Bvol .Banp .Etp ,Fn .Tl  ,T2  ,Pvap 1  .Pvap2  ,E«f ( *  ) 

7578  ELSE 

7579  OUTPUT  0Filed;Bvol .Banp .Vtran .Etp .Enf < 0  )  .Enf ( 1  )  .Enf ( 2 ) ,Emf ( 3  )  .Enf  (  4 ) 
.Fn.Tl  .T2  .Phg  , Pwater 

7580  END  IF 

7581  NEXT  I 

7582  ASSIGN  0FiIeo  TO  * 

7583  ASSIGN  ©Filed  TO  * 

7584  SUBENO 

7585  SUB  Purg 
7588  BEEP 

7591  INPUT  -ENTER  FILE  NAME  TO  BE  DELETED* .Filet 

7594  PURSE  Filet 

7597  GOTO  7588 

7600  SUBbND 

7690  SUB  Renan 

7693  BEEP 

7696  INPUT  -ENTER  FILE  NAME  TO  BE  RENAMED* .Fi lei t 
7699  BEEP 

7702  INPUT  -ENTER  NEW  NAME  FOR  FILE*,File2t 
7705  RENAME  Filelt  TO  FxleZt 
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7708  GOTO  7693 

771 1  SUBEND 

77Z1  DEF  FNTvsv55(U) 

7731  COM  /CcS5/  T55<5) 

7741  T-T55<0) 

7751  FOR  I-l  TO  5 
7761  T«T+T55(I 

7771  NEXT  I 
7781  RETURN  T 
7791  FNEND 
7801  DEF  FNTvav56(U) 

7811  COM  /CcSB/  T56(5) 

7821  T-T56<0) 

7831  FOR  I-l  TO  5 

7841  T-T+TS6(I  )*U*I 

7851  NEXT  I 

786 1  RETURN  T 

7871  FNEND 

7881  DEF  FNTvsv57<U) 

7891  COM  /Cc57/  T57<5) 

7901  T-T57<0) 

7911  FOR  I-l  TO  5 

7921  T-T+T57<I )*V*I 

7931  NEXT  I 

7941  RETURN  T 

7951  FNEND 

7961  DEF  FNTv8vS8<U) 

7971  COM  /Cc58/  T58<S) 

7981  T-T58(8) 

7991  FOR  I-l  TO  5 
8001  T-T+T58(  I  )*V''I 

8011  NEXT  I 
802 1  RETURN  T 
8031  FNEND 

8100  DEF  FNTfric( Tear  ) 

8110  COM  /Fpic/  Istuo  .Inn ,Ityp ,Uw .Inano ,Imco ,Itd8 

8113  IF  Itds-3  RND  Inn-3  THEN  !  COBB’S  TUBES  <Di-12.7nrt) 

8114  Tcor-Tcor-( 2 . 524E-5- 1 . S958E-3*Uu+7 . 1 0B4E-3*Vw*2-3 . 3 1 BE-3*Uw*3+8 . 5S45E-4 
•Vu-4-7.37E-5*Uu‘‘S) 

8115  60T0  8300 

8116  END  IF 

8121  IF  (Itds-1  OR  Itds-2)  AND  Inco-0  THEN  I  MEDIUM  AND  LARGE  COFFER  TUBES  (Oi- 
1 2 . 7nn ) 

8122  IF  Inn-0  AND  Uu>.S  THEN  Tcop-Tcor-(-2.73E-4+1 .75E-4*Vw+9.35E-4*Vu*2-1 .9 
5E-5*Vu-3) 

8130  IF  Inn-1  THEN  Tcor-Tcor-(-6.44E-5-H  .71E-3*Uu+4.4S£-4*Uu*2+4.07E-5*Uu''3  ) 

8140  IF  Inn-2  THEN  Tcor-Tcor-(-3.99E-4+2.75E-3*Vw+1 .4SE-3*Uu*2+8. 16E-5*Uu''3 > 

8150  IF  Inn-3  THEN  Tcop-Tcop-( 8.57E-5+1 .23E-3*Uu+1 .08E-3*Uw*2+8. 1SE-5*Uw*3  ) 
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8151  GOTO  8300 
8160  END  IF 

8170  IF  (Ityp-0  OR  Ityp-Z)  AND  Iinco-4  THEN  !  SMOOTH  AND  WIRE-WRAPPED  TITANIUM  T 
UBE  (Di“13.86nn) 

8180  IF  Inn-0  AND  Uu>.5  THEN  Tcor-Tcor-( -4 . 62E-5-7.53E-4«Uui+1 . BeE-S-Uw^Z-B . 8 
4E-5*Uw*3) 

8180  IF  Inn-3  AND  Inano-5  THEN  Tcor-Tcor-(  2 .09E-4+9. 74E-4*Uu+2 . 1  2E-3*Uu‘'2-3 . 
31E-5*Uw“3) 

8191  IF  Inn-3  AND  Inano-6  THEN  Tcor-Tcor-( 1 . 9555E-4+3 . 972 1 E-3*Uy+3 . 1 27E-4*Uu 
*2+3.51 9E-4*Uu*3) 

8192  GOTO  8300 
8201  END  IF 

8210  IF  (Ityp-3  OR  Ityp-4)  AND  Itds-4  THEN  !  LPD  KORODENSE  (Di-13.47nn) 

8220  IF  Inn-0  AND  Uu>.5  THEN  Tcor-Tcor-( -3. 386E-4+ 1 . 88E-3«Uu+6 .01 3E-4*Uw’2+4 
.133E-5«Uw*3) 

8230  IF  Inn-3  THEN  Tcor-Tcor-<2.089E-4+9.202E-4*Uw+1 .893E-3*Uu*2-2.781E-5*Uu 
*3) 

8231  GOTO  8300 
8240  END  IF 

8242  IF  <Ityp-5  OR  Ityp-6)  AND  Itd9-4  THEN  !  MHT  KDRODENSE  (Di-13.53mn) 

8245  IF  Inn-0  AND  Uu>.5  THEN  Tcor-Tcor-< B.79E-5+1 .B32E-3*Uu+8.409E-4*Uu*2+1 . 
1  1  1E-4«Uu''3) 

8246  IF  Inn-3  THEN  Tcor-Tcor-< 2 .564E-4+6 . 263E-4*Uu+2 .B03E-3*Uu*2+7 . 830E-B*Uw 
*3) 

8247  GOTO  8500 

8249  END  IF 

8250  IF  Itd8-0  AND  Inco-0  THEN  'SMALL  COPPER  TUBE  (Di-9.525r(n> 

82B0  IF  Inn-0  THEN  Tco7-Tcor-( .0138+. 001 *Uw"2 > 

8270  IF  Inn-1  THEN  Tcor-Tcor-.004*Uw”2 

8280  IF  Inn-2  THEN  Tcor-Tcor- .004*Uw*2 

8290  END  IF 

8300  RETURN  Tcor 

8310  FNEND 

8500  SUB  Mergefile 

8510  DIM  Enf(20) 

8520  BEEP 

8530  INPUT  -ENTER  NAME  OF  NEW  FILE"  .D_f  i ie$ 

8540  CREATE  BOAT  O_file$,50 
8550  ASSIGN  SFiled  TO  D_file$ 

8560  BEEP 
8570  Nunb-0 
8580  BEEP 

8590  INPUT  -NUMBER  OF  FILES  TO  MERGE-  .N 
8B00  IF  Nunb-N  THEN  3770 
8610  Nunb-Nunb+1 
8620  BEEP 

8630  INPUT  -ENTER  FILE  TO  BE  MERGED- ,Fi leoS 
8640  ASSIGN  SFileo  TO  FllaoS 
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8650  ENTER  IFileo; Ifg  .Inn 

8660  IF  Nunb-1  THEN  OUTPUT  #Fi  ledi  Hg 

8670  ENTER  iFiUojIut  .Fp.Fu.Fh 

8660  IF  Nunb-l  THEN  OUTPUT  0Fi led« Iwt  .Fp  .Fw  ,Fh 

8690  BEEP 

8700  INPUT  "ENTER  NUMBER  OF  DATA  SETS  STORED*  ,Nrun 
8710  FOR  I-l  TO  Nrun 

8720  ENTER  0Fl leoiBvol ,Banp  ,Etp ,Fm .Tt  ,T2  .Pvapi  .Pv«p2  ,Enf( • ) 

8730  OUTPUT  0FilediBvol .Banp .Etp ,Fb,T1  ,T2  ,Pvap1  ,Pvap2  ,Enf< •  ) 

8740  NEXT  I 

8750  ASSI6N  0Fxlao  TO  • 

8760  60T0  8600 

8770  ASSIGN  0Filed  TO  • 

8780  SUBENO 

8790  SUB  Xyoutput 

8791  PRINTER  IS  1 

8800  INPUT  "ENTER  NAME  OF  PLOT  DATA  FILE“,Filep* 

8810  ASSIGN  0Filep  TO  FilepS 

8820  INPUT  "ENTER  NUMBER  OF  DATA  POINTS", Npts 

8821  PRINTER  IS  701 

8830  FOR  I«1  TO  Npts 
8840  ENTER  0FilepjX,Y 

8850  PRINT  X ,Y 

8860  NEXT  I 

8870  ASSIGN  •Filep  TO  ♦ 

8880  SUBENO 
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APPENDIX  B.  TEMPERATURE  RISE  CORRECTION 


As  coolant  flows  through  the  tube  there  is  an  increase  in 
the  bulk  temperature  of  the  fluid  due  to  frictional  heating. 
The  amount  of  frictional  heat  added  to  the  system  depends  on 
the  fluid  velocity  and  the  inside  geometry  of  the  tube.  The 
actual  measured  increase  in  temperature  is  small  but  the 
Increase  has  a  significant  effect  on  the  calculated  overall 
heat  transfer  coefficient  and  later  calculations.  The 
correctional  equation  below: 

Tcor  *  2.524e-5  -  1. 6958e-3*V_  +  7.1064e-3*V  ^  -3.318e-3 
*  +  8.5545e-4  *  -  7.37e-5  * 

where  T^^,^  is  the  temperature  rise  (K)  and  is  the  fluid 
velocity  (m/s) .  Equation  (B.l)  was  determined  by  measuring  the 
temperature  difference  between  the  inlet  and  outlet 
thermocouples  for  various  cooling  water  flow  rates  through  a 
test  tube  with  a  Heatex  insert  and  no  external  heat  source 
(i.e.,  no  steeun  in  the  test  system).  The  flow  rates  were 
converted  into  velocities  and  plotted  against  the  temperature 
difference  as  shown  in  Figure  B.l.  Equation  (B.l)  was  the 
curve  fit  of  the  obtained  data.  The  temperature  rise 
correctional  value  was  subtracted  from  the  measured 
temperatvire  difference  during  the  data  runs  to  de  ermine  the 
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actual  haat  transfarred  to  the  cooling  water  conducted  from 
the  stean. 
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FRICTIONAL  CORRELATION  FOR  INCREASE  IN  COOLANT  WATER  FLOW  WITH  A 

HEATEX  INSERT 


Figure  B.l  Frictional  Correlation  for  the  Increase  in 

Coolant  Water  Temperature  due  to  a  change  in 
Velocity  Flow  and  a  Heatex  Insert 
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Fl««  Vtltally  (mlt) 


APPIMDZZ  C.  MODEL  FEOOSEM  LZ8TZMG 


The  program  HEATCOBB,  which  was  used  to  reprocess  the 
temperature  values  obtained,  from  the  data  collection  program 
DRPALL,  to  predict  the  outside  heat  transfer  coefficients  and 
enhancement  ratios  for  a  constant  teiq>erature  differences 
(AT) ,  is  listed  in  this  Appendix. 
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IMPLICIT  REAL*S  (A-H.O-Z) 

REALMS  OBSIO,  DBSIl.  DBSKO.  DBSXl,  KC, 

*  W,  NC,  R2C,  A. 6,  DT(20,3)  .PITCH,  Y.QFFdOOO)  , 

*  R1,R2,IIU,RB,02,DR,IU10F(1000)  ,RHOG(1000)  ,RHO(1000)  , 

C  *  EFF(IOOO),  Xl(lOOO),  X2(1000) ,CH(1000) ,Z(1000) , 

C  *  AFSdOOO).  AFT dOOO ), AU (1000), DF (1000), 

C  •  Y(IOOO),  LA(IOOO),  AEF(IOOO),  DE(IOOO),  HMF(IOOO), 

CCCCCCCCCCCCCCCCCCCCCCCc 

C  THE  ARRAY  VALUES  ABOVE  ARE  USE  FOR  THE  OVERALL  RANGE  OF  FIN 

C  EFFICIENCIES  AND  HEAT  TRANSFER  COEFFICIENTS.  FOR  A  SPECIFIC 

C  FIN  EFFICIENCY  OR  HEAT  TRANSFER  COEFFICIENT  USE  THE  CONSTANT/ 

C  SCALER  VALUES  BELOH.  ONE  MUST  BE  COIOfENTED  OUT! ! ! 
CCCCCCCCCCCCCCCCCCCCCC 

*  ETA,  X1,X2,AEF,LA,AFS,AFT,DE,AU,DF,CH,Z,MMF, 

*  LI, L2, AO, RATIO, THICK, SPACEB,SPACET,TOL,LEN,TSTEAM(1000) . 

*  P(IOOO)  ,VF(1000)  ,HFG(1000)  ,CPF(1000)  ,TFILM(1000)  .TFCdOOO)  , 

*  UG(IOOO) ,KF(1000) , PRF ( 1 000 ), SIGMA (1000) ,CPG(1000) ,UF(1000) , 

*  VG(IOOO) ,BETA,BT,BF,BS,B1,PHI(1000),FF(1000) ,FS(1000) ,HV(1000} , 

*  QT(IOOO) ,QF(1000) ,QS(1000) ,EPH(1000) ,QQF(1000) ,QQS(1000) , 

*  QNUS(IOOO) ,GT(1000) ,EDT(1000) ,GS(1000) ,GF(1000) ,TF(1000) , 

*  TS(IOOO) ,TT(1000) ,EOTC(1000) ,TSTM(20,1) ,TFLM(20,2) ,HO(20,4) , 

*  HS ( 1000) ,HF (1000) ,HN (1000) ,ENH, 

*  HBKSMH, HMSMH,HNUSS,FFI (1000) ,FSI( 1000) ,PHIP(1000) , 

*  Fl(lOOO) ,F2(1000) ,Arf (1000) ,Ar(1000) ,Atr(1000) ,AtS(1000) , 

*  RSA(IOOO) ,IEAA(1000) ,MAXENH (1000) ,AT,AF(1000) .AS(IOOO) , 

*  ATOTAL ( 1000 ), HR (1000) 

PARAMETER  (PI-3.141592654) 


INTEGER  L,F.J,TM,AR£A,JJ 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  NU:  NUMBER  OF  FINS  PER  UNIT  LENGTH 

C  LEN:  CONDENSING  LENGTH  OF  TUBE 

C  LI:  LENGTH  PRIOR  TO  CONDENSING  LENGTH  THAT  ACTS  AS  A  FIN 

C  L2:  LENGTH  AFTER  THE  CONDENSING  LENGTH  THAT  ACTS  AS  A  FIN 

C  KC:  THERMAL  CONDUCTIVITY  OF  THE  TUBE  MATERIAL 

C  H:  — >  FIN  HEIGHT  (h) 

C  DR:  ROOT  DIAMETER  OF  TUBE 

C  02:  OUTER  DIAMETER  AT  FIN  TIP 

C  SPACET:  SPACING  AT  THE  TIP  OF  THE  FIN  (b) 

C  SPACEB:  SPACING  AT  THE  BASE  OF  THE  FIN  (s) 

C  G:  GRAVITY  FORCE 

C  CH:  INPUT  HEAT  TRANSFER  COEFF  USED  TO  DETERMINE  THE  HTC  WITH 

C  *  THE  EFFICIENCY  FOR  THE  MATERIAL 

C  ETA:  FIN  EFFICIENCY 

C  PITCH:  PIN  PITCH 

C  P:  PRESSURE  AT  THE  STEAM  TEMPERATURE 

C  VF:  SPECIFIC  VOLUME  OF  THE  CONDENSATE  AT  THE  FILM  TEMPERATURE 

C  VG:  SPECIFIC  VOLUME  OF  THE  STEAM  VAPOR 

C  RHOF:  THE  DENSITY  OF  THE  CONDENSATE 

C  RHOG:  THE  DENSITY  OF  THE  STEAM  VAPOR 

C  RHO:  THE  DIFFERENCE  BETWEEN  THE  TWO  DENSITIES 

C  HFG:  HEAT  OF  VAPORIZATION  AT  THE  VAPOR  TEMPERATURE 

C  CPF:  SPECIFIC  VOLUME  OP  CONDENSATE 

C  CPG:  SPECIFIC  VOLUME  OF  CONDENSATE 

C  UF:  VISCOSITY  OF  CONDENSATE 

C  UG:  VISCOSITY  OF  STEAM 
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C  KF:  THZmAL  OMIOUCTIVITy  OP  CCMDENSATE 

C  PRP:  PRANOTL  MUNBCR  OF  CONDENSATE 

C  SZCaU:  SURFACE  TENSION  OF  C^IDENSATE 

C  HNF:  HBX:  MEAT  TRANSFER  COEFFZCIENT  BASED  (»l  BEATTY  AND  KATZ 

C  *  O}RRELATI0N 

C  HNUSS:  HEAT  TRANSFER  COEFFZCIENT  BASED  (»l  NUSSELT  CORRELATION 

C  AU:  UNPINNED  SURFACE  AREA 

C  APS:  AREA  OF  FIN  FLANK 

C  AFT:  AREA  OF  FIN  TIP 

C  AEF:  EFFECTIVE  SURFACE  AREA  WITH  FINS 

C  DE:  EFFECTIVE  DIAMETER  WITH  FIN 

C  AO:  AURFACE  AREA  OF  SMOOTH  TUBE  KITH  OUTSIDE  DAIMETER  OF 

C  *  ROOT  (WITHOUT  FINS) 

C  L:  D:  ADDITKWAL  HEIGHT  OF  RADIUSED  FIN  ROOTS 

C  QQF:  TOTAL  HEAT  TRANSFER  RATE  OVER  ENTIRE  LENGTH  FOR  A  FIN  TUBE 

C  QQS:  TOTAL  HEAT  TRANSFER  RATE  OVER  A  SMOOTH  TUBE  WITH  DIAMETER 

C  *  EQUAL  TO  THE  ROOT  DIAMETER 

C  ONUS:  TOTAL  HEAT  TRANSFER  RATE  BASED  ON  NUSSELT  CORRELATION 

C  EDT:  ENHANCIMENT  RATIO  (HEAT>TRANSFER  COEFFICIENT  FOR  PINNED 

C  *  TUBE  DIVIDED  BY  THE  HEAT  TRANSFER  COEFFICIENT  FOR  A  SMOOTH 

C  *  TUBE  WITH  THE  SAME  DIAMETER) 

C  GS:  CONSTANT  VALUE  IN  EQN 

C  TS:  CONSTANT  VALUE  IN  EQN 

C  GF:  CONSTANT  VALUE  IN  EQN 

C  TF:  CONSTANT  VALUE  IN  EQN 

C  EDTC:  CHECK  OT  THE  ENHANCOtENT  RATIO 

C  TT:  CONSTANT  VALUE  IN  EQN 

C  GT:  CONSTANT  VALUE  IN  EQN 

C  BT:  CONSTANT  VALUE  FOR  b  AT  FIN  TIP 

C  BF:  CONSTANT  VALUE  FOR  b  AT  PIN  FLANK 

C  BS:  CONSTANT  VALUE  FOR  b  FOR  INTERFIN  TUBE  SPACING 

C  Bl:  CONSTANT  VALUE 

C  BETA:  HALF-ANGLE  AT  THE  FIN  TIP 

C  PHI:  CONDENSATE  RETENTION  OR  "FLOODING”  ANGLE  TKOH  TOP  OP  TUBE 

C  FF:  FRACTION  OF  UNFLOODED  PART  BLANKED  BY  RETAINED  CONDENSATE 

C  *  AT  FIN  ROOT 

C  FS:  FRACTION  OF  UNFLOODED  PART  OF  INTERFIN  TUBE  SURFACE 

C  *  BLANKED  BY  RETAINED  CONDENSATE  AT  FIN  ROOT 

C  HV:  EFFECTIVE  MEAN  VERTICAL  FIN  HEIGHT 

C  QT:  HEAT  FLUX  FOR  FIN  TIP 

C  QF:  HEAT  FLUX  FOR  FIN  FLANK 

C  QS:  HEAT  FLUX  FOR  TUBE  SURFACE  BETWEEN  FINS 

C  EPH:  FUNCTION  VLAUE  OF  CONDENSATE  RETENTION  ANCLE 

C  THICK:  FIN  THICKNESS  (t) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
OPEN  (15,  FILE-  'HEATCOBB  OUTPUT') 
c  s«l«ct  typ«  of  Mtorial  (tm) 

c  0-copp«r,  l-stainl«ss  staal,  z-aluainua,  3-coppar  nickal 

TM-  2 

c  aalact  surfaca  araa  aquation  (araa) 

c  l-ractangular  fin,  2-daop  fillat  radius,  3-Bhallow  fillat  radius 

AREA-  3 

c  salact  tha  nuabar  of  data  points 


u  u 


IP  (tM  .EQ.  0)  1HEN 
ke«  390. ta 

writ«(i9,*)  'typ«  Mtcrial-  eopp«r' 
writ«U9,*)  'thSTMl  conductivity  (kc):',kc 
C  mo  IP 

BLSEiP  (TN  .iQ.i)  nm 

kc-  14.3 

«arit«(15,*)  'typo  natoriol-  stainloss  stool' 
trrito(15,*)  'thoxmol  conductivity  (kc):',kc 
C  END  XP 

ELSEIP  (TM  .EQ.  2)  THm 
kc«  231.9 

writo(lS,*)  'typo  Botoriol-  oluainua' 
vrito(15,*)  'thoraal  conductivity  (kc):',kc 
C  EMD  IP 

ELSE 

kc-  S5.3 

writodS,*)  'typo  notoriol*  coppor  nickol' 
writo(lS,*)  'thoraol  conductivity  (kc):',kc 
ond  if 

IP  (AREA  .EQ.  3)  THm 
dr-  14.390-3 
M  -.7SE-3 
olso 

H  -lE-3 
dr-  13.990-3 
ond  if 

C  DR-  13.7E-3 
Lm-  .13335 
LI-  .060325 
L2-  .034925 
BETA-  0 
BT-  0.143 
BP-  0.143 
BS-  0.143 
Bl-  2.96 
THICK-  1*10. **(-3) 

S-1.5E-3 
JJ-0 

DO  5  S-  .9E-3,2«SE-3, .05E-3 
SPACED-  2.5  •  10. **(-3) 

SPACED-  S 
C  JJ-  JJ*! 

C  WRITE  (15,*)  'RUN  HUMBER  -',JJ 

SPACET-  SPACm 

OPm  (16,  PILE-  'VT131  PORTRAN') 

NRITE(15,*)  'OUTPUT  POR  VT131' 


PITCH-  SPACm*THICK 
C  N  -  0.000001 

Rl-  DR/2. 

D2-  DR  *  2*H 
R2-  D2/2. 

HC-  W  *  THICK/2. 
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uuu  uuuu  u  u  uu 


UC-  K3  *  raiCX/2. 

RA-  sQirr(2.)/(i.  -  Ri/mc) 

RB-  (R1/R2C)  *  RA 
T-  THICK 
L-  .25«-3 

NRlTEdS,*) 

MRITEdS,*)  'PZM  HEIGHT 
IF  (AREA  .EQ.l)  THEN 
A»  t*WC 

HRITE(15,*)  'RECTANGUXAR  PIN' 

ASC-  A 
•nd  if 

IP  (AREA  .EQ.2)  THEN 

C  A-  (L<fT/2)*T-»-(T*SPACET)*8PAC£T/2-(PI*SPACET**2/8) 

trrit«(i5,*)  'd««p  fillttt  radius  fin' 

A-  (T/2*W)  *  (T-fSPACET)  >8PACET*  (  (R2-  (Rii'8PAC£T/2) )  +T/2) 

*  -PI/2*(8PACET/2)**2 

C  NRITEdS,*)  'SURFACE  AREA: '  ,A 

Asc«  ( t-fspaeat)  *  (L4'spacat/2<*>t/2)  •  ( ( (L+t/2 )  *8pacat )  ■<- 

*  (pi*apacat**2)/8) 

C  HRITEdS,*)  'SURFACE  AREA  (COBB):',ASC 

and  if 

IP  (AREA  .EQ.3)  THEN 

A-  (T/2+N)  *  (T+SPACET)  -SPACET*  (  (R2-  (Rl-t-SPACET/2 ) )  ♦T/2 ) 
*  •PI/2*(8PACET/2)*«2 

A«  (T/2) *T4(T*8PACET) *SPACET/2*(PI*SPACET**2/S) 

A-  (T/2+H)  *  (T48PACET)  *SPACET*  ( (R2-  (Rl>»-SPACBT/2)  )*T/2) 
-PI/2*(SPACET/2)**2 

vritadS,*)  'ahallow  filial  radius  fin' 

NRITEdS,*)  'SURFACE  AREA:', A 

ASC-  (T+SPACET)  •  (SPACET/2-I-T/2)  •  (  (  (T/2 )  *8PACET)  ♦ 
(PI*8PACET«*2)/8) 

NRITEdS,*)  'SURFACE  AREA  (COBB):', A 
and  if 


A-  THICK  *  WC 

NRITEdS,*)  'CROSS  SECTION  AREA:', A 

NU-  (1/PITCH)  *  LEN 
G«  9.81 
DO  10  J*1,F 

READ  (16,46)  TSTN(J,1) ,TPLM(J,2) ,DT(J,3) ,HO(J,4) 
FORMAT  (2X,F7.3,4X,F6.3,4X,F5.2,4X,P7.1) 

TSTEAM(J)-  273.15  *  TSTN(J,1) 

TFC(J)-  TSTEAM(J)/3.  2*(TSTEAN(J)-DT(J,3)  )/3. 
TFItM(J)-  TFXJ((J,2)  •••  273.15 

NRITE(15,46)  TSTN(J,1) ,TFIJi(J,2) ,DT(J,3) ,HO(J,4) 
IIRITE(15,*)  'TFIXJf:',TFILM(J) 

NRITE(15,*)  'NUN  INPUT:', J 
NR1TE(15,*)  'TSTEAN:',T8TEAM(J) 

HRITE(15,*)  'TFIIM  CALC  :',  TFC(J) 

P(J)-  2. 003732620063*10. **3  >1.77885208776858*10.**! 
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* 

* 


*TSTEAM(J)  ♦  6.697M44«6474*10.**(-3)*TSTEAM(J)**2  ♦ 
3 . •«086914St44«7*10. ** (-4 ) *TSTEMf ( J) **3  - 
1.404502413939*10.**(-«)*TSTEAM(J)**4  * 

*  1.5167323620«257*10.**(>9)*TSTEM1(J)**5 

VF ( J) •  5.923643369271*10.** (-3) >6. 64076036569*10 . ** (-5) 

*  *TFI1II(J)  ♦  3.569837849015*10.**  (-7)  *TFIUI(J)**2  - 

*  9. 61487470533368*10. **(-10)*TFIlJI(J)**3  + 

*  1.300855464242*10.**(>12)*TFILM(J)**4  - 

*  7.009436103929*10.**(*16)*TFXLM(J)**5 

IF  (TSTEMt(J)  .LE.  320)  THEN 

VG(J)«  3.7765014693224E5  -  4.8166922018646E3  *  TSTEAM(J) 

*  2.30839950003999E1  *  TSTEAM(J)**2 

*  *  4.92547853988165E-2  *  TSTEAM(J)**3 

*  +  3.94711740176825E-5  *  TSTEMI(J)**4 

ELSE 

V6(J)«  2.0944941102788E4  -  2.57511068255697E2  *  TSTEAN(J) 

*  *  1.26769945136484  *  TST£AM(J)**2 

*  •  3.122098724905E-3  *  TSTEAM(J)**3 

*  +  3.84527176768464E-6  *  TSTEAN(J)**4 

*  -  1.89417409454379E-9  *  TSTEAM(J)**5 

END  IF 


HFG(J)-  5. 138499737498*10. **6-2. 88007195645*10. **4 

*  TSTEAM(J)  ♦  1. 387146790307*10. **2*TSTEAM(J)**2  - 
3.6214603994528*10.**(-1)*TST£AM(J)**3  * 
4.776360304615*10.**(-4)*TSTEAM(J)**4  - 

2 . 6171073275132*10. ** (-7) *TSTEAM ( J) **5 

CPF(J)«i  5. 49664984073512*10. **4-6. 83922749835455*10. **2 
*TFlLM(J)*3.66613575502*TFILM(J)**2-9.774641549244E-3 

*  TFIIJI(J)**3  ♦  1.2944551269757E-5*TFILH(J)**4  - 
6. 78966872244218*10.**  (-9)  *TFIIII(J)**5, 

CFG ( J) -  -7 . 0138991625627*10. **  (2)4-3. 10681344157*10 .  **  ( 1) 

*  TSTEM*(J)  -  1.43330809031838*10.** (-1)*TSTEM!(J)**2  + 
3 . 102487339759*10. **(-4) *TSTEAM(J) **3  - 
3.37533518371059*10.**(-7)*TSTEAM(J)**4  ♦ 

2 . 09976698784749*10. ** (-10) *TSTEAM( J) **5 

UF(J)-  5. 28866616855338*10. **(-1) -6. 9064403925*10. **(-3) 

*  TFILM(J)  +  3. 6169015509742*10. **(-5)*TFILM(J)**2  - 
9. 475113986937*10.** (-8) *TFILM(J)**3  + 

1 . 2401320526629*10 . ** (-10) *TFILM( J) **4  - 
6. 48230688486946*10.** (-14) *TFILN(J)**5 

UG(J)*  -1.0493495919E-4  *  1.520614407775E-6 

*  TSTEAM(J)  -  8.509310662084E-9  *TSTEAM(J)  * 
2.418828484978E-11  *TSTEAN(J) **3  - 
3.39717932745E-14  *TSTEM((J) **4  4- 
1.88340981436E-17  *TSTEAM(J) **5 

KF(J)-  7.60929710087  -  1.097443071183E-1  *TFILN(J)  4- 
6.476232148521E-4  *  TFILH(J)**2  - 
1.83877277459E-6  *TFim(J)**3  4- 

2 . 5564025355E-9  *TFZUf ( J) **4-1 . 4068703896348E-12 

*  TFIU!(J)**5 
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PRF(J)-  4.S83467922E-t-3  •  6. 00442918616E+1  *TFZLM(J)  * 

*  3.150508584456E-1*TFZLM(J)**2  >8.2625902332188E-4*TFILM(J) **3 

*  +1.0820«49955124E-6*TFILM{J)*«4  -5.8571205177E-10*TFILM( J) **5 

SZ(aiA(J}-  >2.11271594796  *  3.1290868968E-2  *TFILM(J}  - 

*  1.76251989006E-4  •TFILM(J)**2  •t'4.91136030868E>7*TFILM(J)  **3 

*  -6.80272511265E-10*TP1LM(J)**4  +3.742781911254E-13*TFILM(J) 

RMOF(J)-  l./VF(J) 

RHOG(J)-  l./VG(J) 

RHO(J)«  KHOF(J)  >  lUIOG(J) 

C  WRITE(15,34) 

C34  F0RMAT(1X,T3, 'TFILM' ,T13, 'P*,T22, 'VF' ,T32, 'VG' ,T41, 'HFG' , 

C  •  T52,'CPF',T64,'CPC') 

C  WRITE (15, 35) 

C35  F0RHAT(1X,T3, ' (K) ' ,T11, ' (KPA) ' ,T20, ' (M3/KG) ' ,T30, ' (M3/KG) ' , 

C  •  T40,»(J/KG)',T51.MJ/(KG*K))*,T62,'(J/(KG*K))') 

C  WRITE(15,36)  TFILM(J) ,  P(J) ,VF(J) ,VG(J) ,HFG(J) ,CPF( J) ,CI»G(J) 

C36  FORMXT(1X,F6.2,T10,F7.3,T19,F8.6,T29,P7.2,T38,F10.2,T52, 

C  *  F7.2,T64,F7.2) 

C  WR1TE(15,*) 

C  WRITE(15,37) 

C37  FORMAT  (1X,T5, 'UF' ,T16, 'UG' ,T33, 'KF» ,T46, 'PRF' , 

CC  *  T55, 'SIGMA') 

C  WRITE  (15,38) 

C38  FORMAT  (1X,T3, ' (N*S/M2) ' ,T14, ' (N*S/M2) ' , 

C  *  T30, ' (W/M*K) ' ,T55, ' (H/M) ') 

C  WRITE  (15,39)  UF(J) ,UG(J) ,KF(J) ,PRF(J) , SIGMA (J) 

C39  FORMAT(1X,T2,P9.7,T13,F10.8,T31,F6.4,T45,F6.3,T55,F6.4) 

C  WRITE  (15,*) 

C  WRITE  (15,*) 

TOL-  1.0 
CH-  0.0 
DNl-  .00193788 
KMF-  1.0 

51  IF  (ABS(CH-HMF)  .GE.  TOL)  THEN 
CHv  HMF 

Z-  (WC**1.5)*(CH/(A*KC) )**.5 
XI-  RA*Z 
X2-  RB*Z 

Eta- ( (DSQRT(2 . DO) /Z) / (1*R2C/R1) ) * ( (DBSIl (XI) *0BSK1 (X2 ) • 

*  DBSIl  (X2)  *DBSK1  (XI) )  /  (DBSIl  (XI)  *DBSX0  (X2)  -t-DBSIO  (X2 ) 

*  *DBSK1(X1))) 

APT-  NU*PI*D2*THICK 

LA-  (PI*(D2**2-DR**2))/(4*D2) 

AU-  MU*DR*SPACEB*PI 

APS-  (2*NU*P1*(D2**2-DR**2) )/4. 

AEF-  Eta*AFS  *  Eta*AFT  *  AU 

Y-  1 . 3*ETA*APS/ (AEF*LA** . 25) + (ETA*AFT) / (AEF*D2** . 25) + 

*  AU/(AEF*DR**.25) 


DE-  (l/y)**4. 

DF-  ((1./DE)**.25)/(1./DN1)**.25 

HMF-  0.689*((KF(J)**3  •  RHOF(J)**2  *  G  *  HFG(J)) 
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/  (OP(J)*OT(J.3)*DE))**.25 


HBKSNH-  0.  <89*  (  (KT ( J)  **3*1U10F(J)  **2*G*1IFG( J) )  / 

(OF ( J) *DR*OT ( J . 3 )))**. 25 

RMUSS-  0 . 728* (KF ( J) /OE) * ( (RHOF { J) * (RHOF ( J) -RHOG  < J) ) *G*HFG ( J) 
*DE**3)  /  (UF(J)  *I>T(J,3)  *1CF( J)  )  )  **. 25 

MMSHH«  0.728*(KF(J)/DR)*((RHOF(J)*(RliOF(J)>RMOG(J))*G*HFG(J) 
*OR**3) / (OF{J) *DT(J, 3) ) ) **.25 


GO  TO  51 
END  IF 
WRITE  (15,*) 

AO-  PI*  DR  *  LEN 
C  HRITE(15,*)  'AEF:',AEF 

C  tlRITE(15,*)  'AO:',  AO 

RATIO-  AEF/AO 

C  WRITE(15.*)  'ETA: '.ETA 

C  WRITE(15,*)  '2:',Z 

C  1fRITE(15,*)  'HMF:'.HMF 

ENH-  KMF*RATIO/HNSMH 


hEa-  )iaf*ratio 
C  WRITE  (15,70) 

C  70  FORMAT  (IX, T<, 'HO(EXP) ' ,T19, 'HBK' ,T29, 'AEF/AO' ,T39, 'DT' ) 

C  WRITE  (15,71)  HO(J,4),HFM,RATIO,DT(J,3) 

C71  FORMAT  (1X,T4,F7.1,T14,P10.2,T28,F8.6,T39,F5.2) 

C  WRIT£(15,72) 

C72  FORMAT ( IX, T2,'8MUSS',T15.' ENH  BiK' ,T39, 'HBKSMH' , 

C  *  T51,'HNSMH') 

C  WRITE(15,73)  HNUSS, ENH, HBKSMH, HNSMH 

C  WRITE(15,*)  'HO  (EXP)-',HO(J,4) 

C73  FORMAT(lX,F9.2,T15,F6.3,T36,F9.2,T48,F9.2) 

WRITE  (15,*)  'HBK-',HFM 
C  WRITE  (15,*)  ' SIGMA:', SIGMA (J) 

WRITE  (15,*)  'ENH(BtX)-',  ENH 
C  WRITE  (15,*)  'SPACING-',  S 

C35  CONTINUE 

phip ( j ) -  sigaa ( j ) *dcos (b«ta) / (rhof ( j ) *g*»p«c«t*d2 ) 
if  (phip(j)  .gt.  0.5)  than 
phi(j)-  0.0 

PHI (J)-  DACOS( (4*SIGMA(J)*DCOS(BETA) / (RHOF(J)*G*SPACET*D2) )-l) 
•nd  if 
c 

EPH(J)-  0.874-f0.1991E-2*PHI(J)>0.2642E-l*PHI(J)**2 
*  •f0.553E-3*PHI(J)**3  -  0. 1363E>2*PHI ( J) **4 

c 

if  (phi(j)  .aq.  0.0)  than 
«i(j)-  1 

alsa 

IF  (AREA  .EQ.  3)  THEN 
FFI(J)-  1 
END  IF 
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IF  (JAZA  .EQ.  1)  THEN 


PFI  ( J)-  (2*SI<aU(  J)  /  (1UI0P(  J)  *G*DR*H) )  *  (TAN  (PHI  ( J)  /2 . )  /PHI  ( J) ) 

END  IP 

IF  (AREA  .EQ.  2)  THEN 

PFI(J)-  (2*SIGNA(J)/(RHOF(J)*G*DR*(R2-(Rl-^S/2)) )  )* 

*  (TAN(rai(J)/2.)/PHI(J)) 

END  IF 

•nd  if 

IF(FFI(J)  .6E.  1)  THEN 
ff(J)-  1 

ff(j)-  ffi(j) 

•nd  if 

if  (phi(j)  .aq.  0.0)  then 
1 

•!•• 

fsi (J)-  (4*SI«'HA(J) / (RHOF(J) *G*DR*SPACEB) ) * (TAN (PHI (J) /2 . ) 

•  /PHI ( J, ) 

•nd  if 

IF  (FSI(J)  .GE.  I)  THEN 
f«(j)-  1 

•!•• 

f*(j)-  f«i(j) 

•nd  if 

IF  (AREA  .NE.  1)  THEN 
FS(J)-  PHI(J)  •  S/2 
END  IF 


C  FOR  PHI(J)<  PI/2 

IF  (phi(j)  .aq.  0.0)  then 
hv(j)-  w 

IF  (AREA  .EQ.  2)  THEN 
HV(J)-  (R2-(Rl+S/2)) 

END  IF 

IF  (AREA  .EQ.  3)  THEN 
HV(J)  -  0 
END  IF 

•!••  IF  (PHI(J)  .LE.  (PI/2.))  then 
HV(J)«  N*PHI(J)/SIN(PHI(J)) 

IF  (AREA  .EQ.  2)  THEN 

HV( J)  - (R2> (Rl+S/2 ) ) *PHI ( J) /SIN (PHI ( J) ) 

END  IF 

IF  (AREA  .EQ.  3)  THEN 
HV(J)-  0 
END  IF 

C  FOR  PHI(J)>  PI/2 
ELSE 

HV(J)-  N*PHI(J)/(2.>SIN(PHI(J))) 

IF  (AREA  .EQ.  2)  THEN 

RV(J)  -(R2-(Rl-»-S/2) )  *PHI  (J)  /  (2. -SIN (PHI  (J) ) ) 
END  IF 

IF  (AREA  .EQ.  3)  THEN 
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o  o  o  o  o 


HV(J)«  0 
END  IF 
END  IF 
C 

QT(J)-  (RHOF{J)*HFC(J)*KF(J)««3*DT(J,3)**3/UF(J) 

*  *(0.728**4*RHO(J)*G/D2+BT*SIGHA(J) /THICK**3) ) **.25 
C 

IF  (HV(J)  .EQ.  0)  THEN 
QF(J)-  0 
ELSE 

IF  (AREA  .EQ.  1)  THEN 

QF(J)-  ((RHOF(J)*HFC(J)*KF(J)**3*DT(J,3)**3/UF(J) )*( (0.943**4 

*  *RHO(J)*G/HV(J) )+BF*SICMA(J)/W**3) )**.25 
END  IF 

IF  (AREA  .EQ.  2)  THEN 

QF(J)-  ((RHOF(J)*HFG(J)*KF(J)**3*DT(J,3)**3/UF(J) )*( (0.943**4 

*  *RHO ( J) *C/HV ( J) )  •►BF*SIGMA( J) / (R2- (Rl+S/2 ) ) **3 ) ) ** . 25 
END  IF 

END  IF 

IF  (AREA  .EQ.  1)  THEN 

Q8(J)-  ( (RHOF(J)*HFG(J)*KF(J)**3*DT(J,3)**3/UF(J) )*(EPH(J)**3* 

*  RHO(J)*G/DR<t>BS*SIGMA(J)/SPACEB**3))**.25 
ELSE 

Q«(J)-  ( (RHOF(J) *HFG(J) *KF(J) **3*DT(J, 3) **3/UF( J) ) * (EPH(J) **3* 

*  RHO(J)*G/(DR+S*(l-2/PI))+BS*SICMA(J)/  S**3))**.25 
END  IF 

C 

QnU»(J)-  0.728*((RHOF(J)*HFG(J)*KF(J)**3*DT(J,3)**3/UF(J)) 

*  *(RHO(J)*G/OR))**.25 
C 

IF  (AREA  .EQ.  1)  THEN 

QQF(J)-  PI*D2*THICK*QT(J) •ETA+(PHI (J) /PI) *( ( (l-FF(J) ) *PI*(D2**2 

*  DR**2) /2 . ) *QF(J) *ETA+(1-FS(J) ) *PI*DR*B1*SPACEB*QS ( J) ) 

ELSE 

C 

QQF( J)-  PI* (2*R2) *THICK*QT(J) *ETA+(PHI (J) /PI) * (PI*2 

*  * (R2**2- (Rl+S/2) **2 . ) *QF ( J) *ETA+PI*2* (PI*S/2 ) *B1 

*  * (Rl+S/2* (1-2/ (PI) ))*ETA*QS(J)) 

END  IF 


CCCCCCCCC  FOR  ENHANCEMENT  WITHOUT  EFFICIENCY 

QQF(J)-  PI*D2*THICK*QT(J)+(PHI(J)/PI)*(((1-FF(J))*PI*(D2**2- 
*  DR**2 ) / 2 . ) *QF ( J) + ( 1-FS ( J) ) *PI*DR*B1*SPACEB*QS ( J ) ) 

QQS ( J) -  PI*0R* (SPACEB+THICK) *Qnus ( J) 


EDT(J)-  QQF(J)/QQS(J) 

C 

GT ( J) -  SIGMA ( J) •DR/ (RHO ( J) *G*THICK**3 ) 

C 

GS ( J) -  SIGMA ( J) *DR/ (RHO ( J) *G*SPACEB**3 ) 
C 

GF(J)-  SIGMA (J)*DR/ (RHO (J)*G*W**3) 

C 
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non  nnnnnnnnn  non  nnnn  nn 


TF(J)  -0 

IF  (HV(J)  .NE.  0)  THEN 

TF(J)-  ( (0. 943/0. 728) **4*OR/HV(J)+BF*GF(J)/0.728**4)**. 25 
END  IF 


TS(J)-  (EPH( J)  **3/0. 728**44-BS*GS(J)/0. 728**4)  **.25 
TT(J)-  (DR/D2-»-BT*GT(J)/0. 728**4)**. 25 
IF  (AREA  .EQ.  1)  THEN 

EDTC(J)-(D2/DR)*THICK/(SPACEB+THICK)*TT(J)*ETA+PH1(J)/PI*(1-FF(J) ) 

*  * ( (D2**2-DR**2) / (2*DR* (SPACEB+THICK) ) ) *TF(J) *ETA+PHI ( J) /PI 

*  * ( 1-FS ( J) ) *B1* (SPACEB/ (SPACEB+THICK) ) *TS ( J) 

ELSE 

EDTC(J)-  QQF(J)/QQS(J) 

END  IF 

QFF(J)-  (QF(J)+QT(J)+QS(J))*KU 
AT-  PI*D2*T 

AF ( J) -  (PHI ( J) /PI ) * ( ( 1-FF ( J) ) *PI* (D2**2-DR**2 ) /2 ) 

A*(j)-  (l-f«( j) ) *pi*dr*Bl*spac«b 
Atotal(j)-  At+Aa(j)+Af (j) 


HS(J)-  QS(J)/DT(J,3) 

HF(J)»  QQf(j)/(Atotal(j)*DT(j,3)) 

HN(J)-  EDTC(J)*QNUS(J)/DT(J,3) 

HR ( J) -  QQF ( J) / (PI*DR* (SPACEB+THICK) *DT ( J , 3 ) ) 

C  WRITE(15,*)  'HN;',HN(J) 

WRITE(15,*)  'HO(ROSE)  !SHN(J) 

WRITE(15,*)  'HR:SHR(J) 

WRITE(15,*)  'EDT: EDT(J) 

%frita(15,*) 

WRITE (15,*)  'TOTAL  SURFACE  AREA: ' , ATOTAL( J) 
WRITE(15,*)  'AREA  OF  TIP;', AT 
HRITE(15,*)  'AREA  OF  FLANK: ' ,AF(J) 
WRITE(15,*)  'AREA  OF  SPACE: ' ,AS(J) 


WR1TE(15,*)  'HS;',HS(J) 

WRITE(15,*)  'ENHANCEMENT  FROM  HEAT  FLUX:',  QQF(J) /QQS(J) 
HRITE(15,*)  'QNUSS: ' ,QNUS(J) 

WRITE(15,*)  'Edtc:',  EOTC(J) 

WRITE(15,*)  'QQF:',  QQF(J) 

HRITE(15,*)  'QQS:',  QQS(J) 

HRITE(15,*)  'HEAT  FLUX  ON  FIN  FLANK  QF: ' ,  QF(J) 
NRITE(15,*)  'HEAT  FLUX  AT  FIN  INTERSPACING  QS:',  QS(J) 
HRITE(15,*)  'HEAT  FLUX  AT  FIN  TIP  QT: '  ,  QT(J) 
WRITE(15,*)  'PF;',FF(J) 

MRITE(15,*)  'PFI;',FFI(J) 

WRITE(15,*)  'FS:',FS(J) 

WRITE(15,*)  'PSI:',PSI(J) 

MRITE(15,*)  'PHI;',PHI(J) 

WRITE(15,*)  'HV:',HV(J) 

NRITE(15,*)  'RHOG:',RHOG(J) 

WRITE(15,*)  'RHOF:',RHOF(J) 
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o o o o o o o o o o o o o  nnnnn  o  o  onnn  o  no  o o o o o o o o o o o o o o  oo 


CC  HRITEdS,*)  '1U10:'.RH0(J) 

NRITEdS,*)  'D2:',D2 
imiTE(15,*)  'BETA: '.BETA 
HRITECIS.*)  'SIGMA:'. SIGMA (J) 

NRITEdS.*)  'G:'.G 
WRITEdS.*)  'GT:'.GT(J) 

NRITEdS.*)  'GS:'.GS(J) 

NRITEdS.*)  'Gr:'.Gr(J) 

NRITE(1S.*)  'DE:'.DE 
NRITE(1S.*)  'DR: '.DR 
NRITEdS.*)  'Tr:',TP(J) 

NRITEdS.*)  'TS:',TS(J) 

NRITEdS.*)  'TT:'.TT(J) 

NRITE(1S.*)  'PIN  THICKNESS: '.THICK 
HRITE(1S.*)  'SPACING  AT  PIN  BASE  (S): '.SPACES 
NRITEdS,*)  'PIN  SPACING  AT  TIP  (B):'.SPACET 
NRITE(1S,*)  'PIN  PITCH: '.PITCH 
NRITEdS,*)  'PIN  HEIGHT  (H):'.N 
NRITEdS,*) 

NRITE(1S,*) 

for  surfac*  aroa  affact 
fl(j)-  fa(j) 
f2(j)-  ff(j) 

ARP ( J) «  (R1*SPACET*PHI ( J) * (l-Pl ( J) ) + (R2**2-R1**2 ) *PHI ( J) 

*  *  d-P2 (J) )  +  (PI*R2*THICK) ) / (PI*R1* (SPACET+THICK) ) 

EARP ( J) -  (R1*SPACET*PHI ( J) * (1-Pl ( J) ) *ETA+ (R2**2-R1**2 ) *PHI (J) 

*  *  d-P2 (J) ) *ETA+(PI*R2*TKICK) ) / (PI*R1* (SPACET+THICK) ) 

ATS ( J) -  (R1*SPACET* (R2**2-R1**2) ♦R2*THICK) / 

*  (rl*(spacat4thlck)) 

Atr ( j ) •  (r2**2- (rl+. S*spacat) **2+. S*pi*apacat* (rl+. S*apacat* ( 1- 

*  (2/pi) )  )'fr2*thick)  /  (rl*(spacat-«-thick) ) 

Ar(j)«  ( (r2**2-(rl+.S*8pacat)**2)*{phi( j) /pi)+(rl+.5*8pacat* 

*  d-(2/pi) )  )*.S*8pacat*phi(  j)*«’r2*thick)  / 

*  (rl*  (8pac8t  4-thick) ) 

EAR ( J) -  ( (R2**2- (R1+ . S*SPACET) **2 ) * (PHI ( J) /PI ) *ETA+ (R1+ . 5*SPACEr* 

*  ( 1- (2 /PI ) ) ) * . S*SPACET*PHI ( J) *ETA+R2  *THICK*ETA) / 

*  (R1*(SPACET4'THICK) ) 

RSA(j)-  (At8(j)-Atr(j))/At8(j) 
lEAA(j)-  (Ar(j)-Arf(j))/Arf(j) 

NAXENH(j)«  IEAA(j)>RSA(j) 

NRITEdS,*)  'PRACTION  OP  AREA  BLANKED  ON  TOP  P1:'.P1(J) 
NRITEdS,*)  'PRACTION  OP  AREA  BLANKED  ON  PLANKS  P2:',P2(J) 
NRITE(1S,*)  'ACTIVE  AREA  ENHANCEMENT  RECTANGTnAR-SECTON 

*  PINS  ARP:', ARP (J) 

NRITEdS,*)  'ACTIVE  AREA  ENHANCEMENT  PILLET  RADIUS  ROOT  AR: ' . 

*  AR(J) 

NRITEdS,*)  'RECTANGULAR-SECTION  PINS  TOTAL  SURPACE  AREA 

*  ENHANCEMENT  ATS: '.ATS (J) 

NRITE(1S,*)  'PILLET  RADIUS  TOTAL  SURPACE  AREA  ENHANCEMENT 

*  ATR:', ATR (J) 

NRITE(1S,*)  'REDUCTION  IN  ENHANCEMENT  DUE  TO  THE  LOST  OP  SURPACE 

*  AREA  (PROM  PILLET  ROOT) : ' ,RSA(J) 
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C  NR1TE(15,*)  'INCREASE  IN  ENHANCOtENT  DUE  TO  ACTIVE  AREA:MEAA(J) 
C  NRITE(15,*)  'MAX  ENHANCIMENT: ' ,NAXENH( J) 

C  NRITE(15,*)  'ACTIVE  SURFACE  AREA  ENHANCEMENT  RATIO  (AR/ARF) : ' 

C  •  ,AR(J)/ARF(J) 

C  HRITEdS,*) 

C  NRITE(15,*) 

NRITEdS,*)  'ETA: '.ETA 
NRITEdS,*)  'EQN(34)  -',ARF(J) 

NRITE(15,*)  'EQN(43)  -'.ARCJ) 

NRITEdS,*)  'EQN(41)  •',ATS(J) 

NRITEdS,*)  'EQN(42)  •',ATR(J) 

NRITEdS,*)  'EQN(43)/EQN(34)  -' ,  (AR(J) /ARF( J) ) 

C  NRITEdS,*)  'DR-', OR 

C  NRITEdS,*)  'SIGMA-',  SICMA(J) 

C  NRITE(1S,*)  'RHOG:',RHOG(J) 

C  NRITEdS,*)  'RHOF:',RHOF(J) 

NRITEdS,*)  'RHO:',RHO(J) 

10  CONTINUE 
C  CLOSE (16) 

C5  CONTINUE 

END 


APPIMDZX  O.  SXMPLI  DXTX  RUMS 


Table  II  contains  the  correlation  information  for  the  data 
runs  contained  in  this  Appendix.  All  the  data  runs  were 
processed  using  the  Petu]chov*Popov  [Ref.  33]  inside  heat 
transfer  correlation.  The  data  have  been  printed  out  in  the 
short  form  format. 


( 
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NOTE;  PrograR  nana  *•  ORPftLL 

Data  takart  by  •  COBB 

Thii  analysis  dona  on  file  :  NTODil 
This  analysis  includas  and-fin  affact 
Tharwal  conductivity  ■  398.8  (W/n.K) 

Inside  dianatar,  Di  •  12.78  inn) 

Outside  dianatar.  Do  ■  14.38  <nn> 

This  analysis  uses  the  OUhRTZ  THERflOflETER  paadings 

Wodifiati  Patukhov-Popov  coefficient  »  2.5888 

Using  HERTEX  insert  inside  tube 

Tube  Enhancement  ;  SMOOTH  TUBE 

Tube  material  ;  COPPER 

Pressure  condition  :  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on  Petukhov-Popov )  • 

Alpha  (based  on  Nusselt  (Tdel))  ■ 


Enhancement  <q) 
Enhancement  <0el-T> 


Data 

Uw 

Uo 

€ 

(n/5  ) 

<W/m*2-K  ) 

1 

4.28 

7.888E+83 

3.75 

7.874E+83 

▼ 

W 

3.23 

7.836E+83 

4 

2.78 

7.784E+83 

5 

2.18 

7.S82E*83 

6 

1  .66 

7.884E+83 

7 

1.14 

6.69354-83 

8 

1.14 

6.685E4-03 

9 

1 .66 

7.239E4-83 

18 

2.18 

7.4936-403 

1 1 

2.70 

7.812E-403 

12 

3.22 

7.985E-403 

13 

3.73 

7.g38E-483 

14 

4.25 

8.882E-483 

2.8344 

8.8238 

.9E8 

.976 


Ho 

Op 

<W/m'2-K) 

(U/m*2 1 

9.583E-483 

5.348E+85 

9.773E+83 

5.264E+85 

9.9786+83 

S.158E+85 

1.812E+84 

4. 9656+85 

1 .8306+04 

4.757E+85 

1 .188E+84 

4.815E+85 

1 .8966+84 

4.8B7E+85 

1 .8976+84 

4.11 3E+85 

1 .864E+84 

4.5816+05 

1 .826E+84 

4.693E+85 

1 .8286+84 

4.9205+05 

1 .817E+84 

5.04 16+05 

9.814E+83 

5. 8206 +05 

9.818E+83 

5.1126+85 

Least-Squares  Line  for  Ho  vs  q  curve*. 
Slope  *  8.8888E+88 

Intercept  •  8.8808E+8C 

Least-squares  line  for  q  ■  a*delta-T''b 
e  «  2.B96SE+84 

b  »  7.5888E-81 


Tcf 

<C> 

55.81 

53.86 
51.69 

49.87 
46.28 
48.53 
37.18 
37.51 
42.31 
45.73 

47.88 
49.55 
51.15 
52.87 


Ts 

<C) 

99.98 

99.91 

188.83 

188.84 

188.84 

188.83 

99.82 

188.82 

99.98 

99.91 

188.81 

99.97 

188.84 

188.81 


NOTE*.  14  data  points  were  stored  in  file  ATODIl 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 
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NOTE:  ProgriPi  :  DRPALL 

Oatk  takan  by  :  COBB 

This  analyaxa  dona  on  file  :  ATStiTHi 
Thia  analyaiB  includaa  and-fin  affact 
Tharnal  conduclivity  «  398.8  (N/n.K) 

Ineida  dianatar,  0l  *  12.78  <nn) 

Out a Ida  dianalar,  Oo  *  14.38  (nn) 

This  analyaiB  uaaa  tha  QUARTZ  THERflOAETER  raadinga 

fiodifiad  Patukhov'Popov  coafficiant  *  2.5888 

Uaing  HEATEX  inaart  inaide  tuba 

Tuba  Enhancanant  :  SMOOTH  TUBE 

Tuba  natarial  :  COPPER 

PrasBura  condition  :  ATIIOSPHERIC 

Nuaaalt  thaory  ib  uaad  for  Ho 


Cl  (based  on 

Patukhov-Popov )  *  2 

.8493 

Alpha 

(based 

on  Nussalt 

(Tdel>>  «  8 

.8499 

Enhancanant 

(ql 

»  1 

.888 

Enhancanant 

(Oal-T) 

•  1 

.888 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

« 

(n/s  > 

(U/n*2-K ) 

(U/n*2-K  > 

(W/n"2  > 

(C> 

(C 

1 

4.38 

7.969E-*-83 

9.744E+83 

5.6196+85 

57.67 

99.96 

2 

3.77 

7.928E+83 

9.884E+83 

5.537E+B5 

56.81 

99.89 

3 

3.24 

7.858E+83 

1 .887E+84 

5.4596+85 

54.28 

99.95 

4 

2.72 

7.788E+83 

1 .821E+84 

5.3386+85 

52.18 

188.84 

5 

2.19 

7.485E4C3 

1 .8386+84 

5.1286+85 

49.38 

99.89 

6 

1  .67 

7. 1286+83 

1 .8586+84 

4.8686+85 

45.96 

188.86 

7 

1 .15 

6.658E+83 

1.1166+84 

4.5836+85 

48.35 

188.13 

8 

1 .15 

6.677E+83 

1 .121E+84 

4.4976+85 

48.13 

99.99 

9 

1  .67 

7.124E+83 

1 .8556+84 

4.8286+85 

45.74 

188.81 

18 

2.19 

7 . 478E+83 

1 .8346+84 

5.8796+85 

49.13 

188.87 

1 1 

2.71 

7.7S2E+83 

1.826E+84 

5.2696+85 

51 .34 

188.18 

12 

3.24 

7.914E+83 

1 .813E+84 

5.3986+85 

53.19 

188.14 

13 

3.76 

7.962E+83 

9.987E+83 

5.3836+85 

54.33 

188.12 

14 

4.28 

8.878E+83 

9.847E+83 

5.4426+85 

55.27 

188.12 

Least-Squaras  Lina  for  Ho  vs  q  curva: 
Slopa  ■  8.8888E'«-88 

Intarcapt  ■  8.8888E+86 

Laast-squaras  lina  for  q  *  a*dalta'T''b 
a  «  2.7388E+84 

b  «  7.5888E-81 


NOTE;  14  data  points  uara  storatf  in  fila  ATSMTHi 
NOTE:  14  X“Y  pairs  were  stored  in  data  file 
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NOTE;  Proor«n  *•  DRPftLL 

Data  takan  by  *  COBB 

Thia  analytla  dona  on  fila  :  NTSNTHS 
This  analysis  includas  and^fm  affact 
Tharnal  conductivity  •  390.8  <y/n.K) 

Ins  Ida  dianatar ,  Oi  •  12.70  <nn> 

Outsida  dianatar.  Do  •  14.38  <nn) 

This  analysis  usas  the  QUARTZ  THERfiONETER  raadings 

Nodifiad  Patukhov-Popov  coafficiant  •  2.5000 

Using  HEATEX  insert  insida  tube 

Tube  Enhancanant  ;  SMOOTH  TUBE 

Tube  natarial  •  COPPER 

Pressure  condition  ;  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  < based  on 
Alpha  (based 
Enhancanant 
Enhancanant 

Patukhov-Popov)  •  2. 

on  Nusselt  <Tdel)>  •  0. 

<q )  ■  1  • 

(Del-T)  *  1- 

7549 

8561 

010 

007 

Data 

Uu 

Uo 

Ho 

Qp 

Tcf 

Ts 

t 

<n/s ) 

<U/n*2-K  ) 

(U/n^Z-K  > 

(W/n*2 ) 

<C> 

<c : 

1 

4.30 

7. 8826+03 

9.681E+03 

5.S83E+05 

57.67 

100.05 

2 

3.77 

7.912E+03 

9.944E+03 

5.542E+05 

55.74 

100.13 

3 

3.24 

7.886E+03 

1 .O2OE+04 

5.473E+05 

53.63 

99.96 

4 

2.72 

7.716E+03 

1 .032E+04 

5.290E+05 

51 .25 

99.96 

5 

2.19 

7.48OE+03 

1 .049E+O4 

5.117E+05 

48.77 

100.12 

6 

1 .67 

7.1S3E+03 

1 .079E+04 

4.8E9E+05 

45.14 

100.14 

7 

1.15 

6.B31E+03 

1 .132E+04 

4.472E+05 

39.51 

100.01 

8 

1 . 15 

6.602E+03 

1 .124E+04 

4 . 454E+05 

39.64 

100.03 

9 

1  .67 

7 . 1 20E+03 

1 .071E+04 

4.844E+05 

45.21 

100.05 

10 

2.19 

7.520E+03 

1 .056E+04 

5.129E+05 

48.55 

100.14 

1 1 

2.72 

7.766E+03 

1 .040E+04 

5.298E+05 

50.93 

99.95 

12 

3.24 

7.936E+03 

1 .026E+04 

5.412E+05 

52.73 

99.88 

15 

3.76 

8.015E+03 

1 .O07E+O4 

5.449E+05 

54.10 

100.08 

14  4.28  8.0S9E+03  g.9O4E*03 

Laast-Squares  Lina  for  Ho  vs  q  curve 
Slope  •  O.OOOOE+00 

Intercept  •  O.OOOOE+00 

Laast'squares  line  for  q  *  a*delta-T 

5.48OE+05 

*b 

55.33 

100. 13 

a  «  2.7624E+04 

b  «  7.500OE-O1 


NOTE:  14  data  points  were  stored  in  file  ATSMTHS 
NOTE:  14  X-Y  pairs  ware  stored  in  data  fila 
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NOTE:  ProQ^Nw  n««e  :  ORPALL 

Data  tak.an  by  :  COBB 

Tbia  analyaii  dona  on  fila  :  UTSNTHi 
This  analysis  includas  and*fin  affect 
Ttiarnal  conductivity  •  39B.8  (W/n.K> 

Inside  dieneter,  Oi  •  12.7B  <nn) 

Outside  dieneter,  Oo  *  U.3B  <nn) 

This  analysis  uses  the  QUARTZ  THERflOtlETER  readings 

nodified  Petukhov-Popov  coefficient  *  2.500B 

Using  HEATEX  insert  inside  tube 

Tube  Enhancenent  :  SHOOTH  TUBE 

Tube  naterial  :  COPPER 

Pressure  condition  :  UACUUfI 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on 

Petukhov-Popov  >  ■  2 

.6857 

Alpha 

(based 

on  Nusselt 

(Tdel>)  »  8 

.8127 

Enhancenent 

(q> 

«  1 

.884 

Enhancenent 

(Oel-T ) 

«  1 

.883 

Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

s 

(n/s  > 

(W/n‘2-K ) 

(U/n*2-K  ) 

(W/n*2  > 

(C) 

(C 

1 

4.31 

8.715E+83 

1.1876*84 

1.8686*85 

16.88 

48.68 

2 

1.15 

6.S85E-«'83 

1 .2876*84 

1 .4286*85 

11.82 

48.57 

3 

3.78 

8.576E+83 

1.1156*84 

1 .8386*85 

16.41 

48.56 

4 

1 .68 

7.584E+83 

1.1876*84 

1.5676+85 

13.88 

48.68 

r 

3.25 

8.583E-^83 

1.1436*84 

1.8176*85 

15.88 

48.65 

6 

2.28 

7.8716*83 

1.1766*84 

1.6716*85 

14.21 

48.58 

7 

2.73 

8.3866*83 

1.1636*84 

1 .7586*85 

15.13 

48.56 

8 

2.73 

8.3486*83 

1.1716*84 

1.7616*85 

15.84 

48.52 

S 

2.28 

7.8326*83 

1.1686*84 

1 .6846*85 

14.42 

48.78 

18 

3.25 

8.5156*83 

1.1456*84 

1.8316*85 

15.88 

48.78 

1 1 

1 .68 

7.4366*83 

1.1886*84 

1 .5676*85 

13.28 

48.81 

12 

3.78 

8.6156*83 

1.1216*84 

1 .8486*85 

16.48 

48.54 

13 

4.31 

8.6786*83 

1.1886*84 

1 .8776*85 

17.87 

48.78 

14 

1.15 

6.7656*83 

1 .2266*84 

1 .4386*85 

11.73 

48.95 

Least-Squares  Line  for  Ho  vs  q  curve: 
Slope  >  B.OBBBE-t-OB 
Intercept  >  B.BOBBE^BO 


Least-squares  line  for  q  »  a*delta-T"b 
a  «  2.2763E4B4 
b  «  7.S8BBE-B1 


NOTE:  14  data  points  were  stored  in  file  UTSNTHI 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 
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NOTE:  ProorM  nant  :  ORPALL 

Data  takan  by  :  COBB 

Thii  analyaik  dona  on  fila  :  UTSf1TH3 
Thia  analysis  includas  and-fin  affact 
Tharnal  conductivity  •  39B.8  <U/n.K) 

Inslda  dianatar,  Oi  *  12. 7B  <nn) 

Out SI da  dianatar.  Do  ■  14.38  <nn) 

This  analysis  usas  tha  QUARTZ  THERtlOHETER  raadings 

nodlflad  Patukhov-Popov  coafficiant  ^  2.SBB8 

Using  HEATEX  insart  inslda  tuba 

Tuba  Enhancanant  :  StiOOTH  TUBE 

Tuba  natarial  :  COPPER 

Prassura  condition  :  UACUUII 

Nussalt  thaopy  is  usad  for  Ho 


Cl  (based  on 

Petukhov-Popov )  ■  2 

.8599 

Alpha 

(based 

on  Nussalt 

(Tdal))  «  0 

.7971 

Enhancanant 

(q) 

m 

.979 

Enhancanant 

(Oal-T) 

m 

.984 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/B ) 

(U/n*2-K ) 

(U/n*2-K ) 

(«/n*2 ) 

(C) 

(C 

1 

4.32 

8.41 16-^03 

1 .049E4-04 

1 .981  Em 

18.88 

48.43 

2 

1.16 

6.659E+03 

1 .1S7E+04 

1.540Em 

13.31 

48.89 

3 

3.79 

8.316E+03 

1 .061  Em 

1.9E9Em 

18.56 

48.36 

4 

1 .68 

7.263E+03 

1 .116e+04 

1.71SE+0S 

15.37 

48.70 

S 

3.27 

8.144E+03 

1 .068Em 

1.979E+05 

18.53 

48.86 

E 

2.21 

7.669E<^03 

1 .096Em 

1.845Em 

16.83 

48.81 

7 

2.74 

7.931E+03 

1 .078E+04 

1.920Em 

17.82 

48.86 

8 

2.74 

7.97SE+03 

1 .08EEm 

1.938Em 

17.85 

48.98 

S 

2.21 

7.657E+03 

1 .093E-t-04 

1 .841E-«-05 

16.84 

48.86 

10 

3.27 

8.136E4-03 

1 .067E+04 

1.976E+05 

18.53 

48.88 

1 1 

1 .68 

7.31 1E+03 

1  .l28Em 

1.733E+05 

15.37 

48.77 

12 

3.80 

8.l96E<f03 

1 .043Em 

2.017E+05 

19.34 

48.80 

13 

1.16 

6.734E+03 

1 . 1 88E<^04 

1  .E29Em 

13.72 

48.85 

14 

4.33 

8.237E+03 

1 .024Em 

2. 0386405 

19.91 

48.80 

Laast-Squaras  Lina  for  Ho  vs  q  curve: 
Slope  ■  C.O0O(BE-«-B8 
Intercept  •  B.BBBBE't’OO 

Least-squares  line  for  q  «  a*delta-T‘'b 
a  «  2.2l32E'»-e4 

b  «  7.5BBBE-B1 


NOTE:  14  data  points  uara  stored  in  file  UTSI1TH3 
NOTE:  14  X-Y  pairs  uara  stored  in  data  file 
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NOTE:  Proor»R  ;  ORPftLL 

O&ta  taktri  by  :  COBB 

TMs  •ntlydft  done  on  file  :  ATBII 
This  enelysis  includes  end^fin  effect 
Thernel  conductivity  ■  BBB.B  <«/n.K) 

Inside  dieneter,  Ol  •  12. 7B  (nn> 

Outside  dieneter,  Oo  «  13.88  (nn) 

This  enelysis  uses  the  QUARTZ  THERtlOHETER  reedinos 

flodified  Petukhov-Popov  coefficient  >  2.5BB8 

Usino  HEATEX  insert  inside  tube 

Tube  Enhencenent  :  RECTAN6ULAR  FINNED  TUBE 

Tube  neteriel  :  COPPER 

Pressure  condition  :  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on 

Petukhov-Popov )  •  3 

.0632 

Alpha 

(based 

on  Nusselt 

(Tdel))  «  2 

.0960 

Enhencenent 

<q> 

«  3 

.331 

Enhencenent 

(Oel-T ) 

•  2 

.466 

Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

( n/s ) 

(W/n*2-K ) 

(W/n*2*K ) 

(U/n‘2  > 

(C) 

(C 

1 

0.63 

8.653E>03 

3.33264-04 

5.84364-05 

17.25 

99.90 

2 

1 .15 

1  . 123E4-04 

2.83364-04 

7.7006-405 

26.62 

99.86 

3 

1 .68 

1 .303E+04 

2.78564-04 

8.9456-405 

32.12 

99.82 

4 

2.20 

1  .44164-04 

2.75364-04 

3.89164-05 

35.93 

93.93 

5 

2.72 

1 .S43E+04 

2.71364-04 

1.0596-406 

38.93 

100.03 

6 

3.24 

1 .634E4-04 

2.72264-04 

1.1156-406 

40.97 

99.90 

7 

3.23 

1  .53364-04 

2.4356-404 

1.0026-406 

41 .14 

99.98 

8 

3.75 

1 .78  IE-404 

2.87264-04 

1.1616-406 

40.41 

100.10 

3 

4.27 

1  .840E4-04 

2.85564-04 

1.19464-06 

41 .83 

99.80 

10 

4.73 

1  .88864-04 

2.83564-04 

1.2286-406 

43.32 

100.02 

1 1 

4.73 

1  .83364-04 

2.84764-04 

1.2346-406 

43.34 

100.17 

12 

4.27 

1.845E4-04 

2.86364-04 

1 . 1 956-406 

41  .74 

100.01 

13 

3.75 

1 .78864-04 

2.88264-04 

1.1586-406 

40.18 

100.27 

14 

3.23 

1 .730E4-04 

2.3426-404 

1.11 46-406 

37.86 

99.97 

15 

2.71 

1  .62864-04 

2.3256-404 

1 .04964-06 

35.88 

99.96 

16 

2.13 

1 .51 1E4-04 

2.3336-404 

9.7396-405 

33.21 

100.03 

17 

1  .67 

1 .38164-04 

3.0566-404 

8.3536-405 

29.30 

99.99 

18 

1  . 15 

1 .20864-04 

3.3326-404 

7.7646-405 

23.30 

99.94 

13 

0.62 

3.54664-03 

4.6686-404 

6.0626-405 

12.99 

100.15 

Least- 

squares  line  for  q 

»  a*delta-T’ 

■b 

6  »  7.0330E+04 

b  *  7.5000E-01 


NOTE:  13  data  points  were  stored  in  file  AT011 
NOTE:  13  X-Y  pairs  were  stored  in  data  file 
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NOTE:  ProQf'*"  name  :  DRPALL 

Data  lakart  by  :  COBB 

Thi*  analyili  dona  on  file  :  ATB13 
This  analysis  includes  and-fm  effect 
Thermal  conductivity  ■  3BB.8  tU/m.K> 

Inside  diameter,  Ol  •  12. 7B  (mm) 

Outside  diameter.  Do  ■  13.88  (mm) 

This  analysis  uses  the  OUftRTZ  THERMOMETER  readinQS 

Modified  Petukhov-Popov  coefficient  *  2.5888 

Usino  HEMTEX  insert  inside  tube 

Tube  Enhancement  :  RECTMN6ULMR  FINNED  TUBE 

Tube  material  :  COPPER 

Pressure  condition  :  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on 
Alpha  (based 
Enhancement 
Enhancement 

Petukhov-Popov  >  »  3 

on  Nusselt  (Tdel))  •  2. 

(q)  *3 

(Oel-T)  «  2 

.1616 

.2757 

.718 

.677 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(m/s  ) 

(U/m*2-K ) 

(U/m*2-K ) 

(U/m*2 ) 

(C) 

1 

3.74 

1 .863E+84 

3.888E+84 

1.168E+86 

38.67 

2 

4.25 

1 .926E+84 

2.987E+84 

1.195E+86 

48.81 

3 

3.22 

1 .784E+84 

3.882E+84 

1 .184E+85 

36.78 

4 

2.78 

1 .731E+84 

3.1S1E+84 

1 .875E+86 

34.18 

5 

2.18 

1 .586E-t-84 

S.897E+84 

9.897E+85 

31.96 

6 

1 .66 

1 .S99E+84 

4.877E+84 

1 .805E+86 

24.65 

7 

1 .14 

1 .318E+84 

3.987E+84 

8.263E+85 

21.15 

8 

1 .15 

1 .224E+84 

3.278E+84 

7.864E+85 

23.99 

9 

1  .67 

1 .439E+84 

3.224E+84 

9.312E+85 

28.89 

18 

2.19 

1 .6446+84 

3.367E+84 

1 .8585+86 

31 .43 

11 

2.78 

1 .718E+84 

3.134E+84 

1 .8926+86 

34.85 

12 

3.22 

1 .814E+84 

3.112E+84 

1 .155E+86 

37.18 

13 

3.74 

1 .982E+84 

3.119E+84 

1 .285E+86 

38.63 

14 

Least - 

a  » 

b  * 

MOTE: 

NOTE: 

4.26  1.9S5E+84  3.864E+84  1 .225E+86 

-squares  line  for  q  »  a*delta“T*b 

7.7229E+84 

7.5888E-81 

14  data  points  were  stored  in  file  AT813 

14  X-Y  pairs  were  stored  in  data  file 

39.97 

Ts 

(C) 

188.87 

99.86 

188.85 

188.84 
99.89 
99.97 

188.16 

188.81 

188.85 

188.86 
99.97 

188.86 

99.88 

99.86 
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NOTE;  Proo'"*" 

Oalt  t«Ker>  by  •  COBB 

This  »n6lysis  done  on  file  :  hT«2l 
This  analysis  includes  and-fin  effect 
Thermal  conductivity  •  39B.8  (W/n.K) 

Inside  dianetar,  Di  ■  12.70  (nn) 

Outside  diameter ,  Do  ■  14.38  imn> 

This  analysis  uses  the  QUARTZ  THERNOHETER  readings 

fiodifiad  Petukhov-Popov  coefficient  ■  2.5000 

Using  HEATEX  insert  inside  tuba 

Tube  Enhancement  ;  SHALLOW  FILLET  FINNED  TUBE 

Tube  material  *•  COPPER 

Pressure  condition  ;  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on  Petukhov-Popov >  ■  3.2217 
Alpha  (based  on  Nusselt  (Tdel))  •  1.48SB 
Enhancement  ( q ) 


Enhancement 


fata 

Uu 

t 

(m/s ) 

1 

0.B3 

2 

1.15 

3 

1  .B7 

4 

2.20 

5 

2.72 

B 

3.24 

7 

3.76 

8 

4.27 

9 

4.53 

10 

4.53 

11 

4.26 

12 

3.74 

13 

3.22 

14 

2.70 

15 

2.18 

IB 

1  .66 

17 

1 . 14 

18 

0.62 

(Del-T) 

Uo 

(U/m*2-K ) 
7.581E+03 
9. 183E+03 
1 .061E+04 
1 .139E+0< 

1 .225E+04 
1 .271E+04 
1 .330E+04 
1  .351E+04 
1 .364E+04 
1 .368E+04 
1 .356E+04 
1 .333E+04 
1 .312E+04 
1  .2S3E+04 
1 . 1 99E+04 
1 .243E+04 
1 .019E+04 
8.71 lE+03 


Ho 

(U/m*2-K 
2.151E+04 
1.839E+04 
1 .875E+04 
I .835E+04 
1.873E+04 
1 .853E+04 
1 .881E+04 
1 .848E+04 
1 .841E+04 
1 .848E+e4 
1  .850E+04 
1 .871E+04 
1  .916Ef04 
1.9O5E+04 
1 .944E+04 
2.4I5E+04 
2. 161E+04 
r.958E+04 


1 .748 

Qp 

)  (W/m*2) 

5.0808405 
6.298E405 
7.227E+05 
7.762E+05 
8.302E405 
8.587E405 
8.8905405 
8.942E405 
8.921E405 
8.899E405 
8.755E405 
8.487E405 
8.279E40E 
7.864E405 
7.472E405 
7.B69E405 
6.269E405 
5.20BE4O5 


Least-squares  line  for  q  »  a*deltd~T''b 
B  *  4.9231E404 

b  »  7.500OE-O1 


Tcf 

Ts 

(C) 

(c: 

23.62 

99.80 

34.25 

99.90 

38.54 

99.74 

42.29 

99.81 

44.32 

99.92 

46.34 

99.97 

47.27 

100.01 

48.39 

100.12 

48.45 

100.07 

48.17 

99.95 

47.32 

100.08 

45.37 

99.98 

43.22 

99.83 

41.28 

100.06 

38.44 

100.03 

31  .75 

100.11 

29.01 

100.05 

17.60 

100.12 

NOTE;  18  data  points  were  stored  in  file  AT021 
NOTE:  18  X-Y  pairs  were  stored  in  data  file 
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NOTE:  Prooraw  na«e  :  DRPALL 

Data  tak.eri  by  *•  COBB 

This  analyaia  dona  ort  file  :  AT02Z 
This  analyeis  includes  end-fin  effect 
Thermal  conductivity  »  390.8  <U/m.K) 

Inside  diameter,  Di  ■  12.70  (mm) 

Outside  diameter,  Oo  «  14.38  (mm) 

This  analysis  uses  the  QUARTZ  THERflOhETER  readings 

Modified  Petukhov-Popov  coefficient  *  2.5000 

Using  HEATEX  insert  inside  tube 

Tube  Enhencement  :  SHALLOW  FILLET  FINNED  TUBE 

Tube  material  :  COPPER 

Pressure  condition  :  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 

Cl  (based  on  Petukhov-Popov  )  «  2.94E1 


Alpha 

(based 

on  Nusselt 

(Tdel ) )  «  1 

.5213 

Enhancement 

(Q  ) 

-  2 

.173 

Enhancement 

(Oel-T) 

*  1 

.790 

Data 

Uu 

Uo 

Ho 

Qp 

Tcf 

Ts 

t 

(m/s ) 

(U/m'Z-K  ) 

(U/m*2-K  ) 

(W/m*2 ) 

(C> 

(C) 

1 

4.28 

1 .287E+04 

1  .787E+04 

8.699E+05 

48.67 

99.86 

2 

3.74 

I .296E+04 

1 .8S4E+04 

8.401E+05 

45.08 

100.21 

3 

3.22 

1 .300E^04 

1  .960E+04 

8.138E+05 

41 .52 

100.11 

4 

2.69 

1 .275E+04 

2.035Ef04 

7.749E+05 

38.08 

99.78 

5 

2.17 

1 .216E+04 

2.073E+04 

7.214E+05 

34.79 

100.13 

6 

1  .65 

1  .  l36E-t-04 

2.1396+04 

6.516E+05 

30.47 

100.09 

7 

1 .13 

1  .O08E-^04 

2.228E+04 

5.659E+05 

25.40 

100.18 

8 

1 .14 

9.931E+03 

2.301E+04 

6.357E+05 

27.62 

100.02 

9 

1  .66 

1 . 139E+04 

2.227E+04 

7.205E+05 

32.36 

99.82 

10 

2.18 

1 .228E+04 

2.126E+04 

7.553E+05 

35.53 

100.25 

1 1 

2.69 

1 .307E+04 

2.102E+04 

7.748E+05 

36.85 

100.00 

12 

3.19 

1.377E+04 

2. 10BE+C4 

7.87SE+85 

37.40 

99.86 

13 

3.70 

1 .424E+04 

2.083E+04 

7.889E+05 

37.86 

100.04 

14 

4.20 

1 .458E+04 

2.055E+04 

7.683E+05 

37.38 

100.15 

Least-squares  line  for  q  «  B*deitB-T''b 
a  *  5.0729E+04 

b  «  7.5000E-01 


NOTE*.  14  data  points  were  stored  in  file  AT023 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 
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NOTE:  ProO''**'!  name  :  DftPALL 

Data  takan  by  :  COBB 

TMa  analyais  dona  on  file  :  ATB31 
This  analysis  includes  and-fin  affect 
Tharnal  conductivity  •  SBB.B  (U/n.K) 

Ins Ida  dianatar,  0i  *  I2.7B  (nn) 

Outsida  dianatar,  Do  «  13.88  (nn) 

This  analysis  uses  the  QUARTZ  THERnONETER  raadinos 

nodifiad  PatukhovPopov  coefficient  >  2. 5800 

UsinQ  HEATEX  insert  inside  tuba 

Tuba  Enhancanant  :  DEEP  FILLET  FINNED  TUBE 

Tube  natarial  ;  COPPER 

Pressure  condition  :  ATMOSPHERIC 

Nussalt  theory  is  used  for  Ho 

Cl  (based  on  Petukhov-Popov )  •  3.0158 


Alpha 

(based 

1  on  Nussalt 

(Tdel))  «  1 

.8948 

Enhancanant 

(q) 

■  2 

.912 

Enhancanant 

(Oel-T ) 

*  2 

.229 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s ) 

(U/n*2-K ) 

(«/n*2-K ) 

(W/n*2  > 

(C> 

(C) 

1 

0.63 

8.419E'^03 

3.200E-t-04 

5.734E+05 

17.92 

100.07 

2 

1.15 

1 .094E<^04 

2.790E+04 

7.614E+05 

27.28 

100.20 

3 

1 .68 

1.2S0E+04 

2.590E-»-04 

8.543E't'05 

32.99 

99.74 

4 

2.20 

1 .37SE+04 

2.548E+04 

9.40IE*0S 

36.89 

99.95 

S 

2.72 

1.466E<^04 

2. 5046^04 

9.9UE^05 

39.60 

99.93 

6 

3.24 

1 .545E‘«-04 

2.494E+04 

1 .038E<«-0E 

41 .63 

99.81 

7 

3.76 

1 .600E'^04 

2.459E+04 

1 .068E-t-0E 

43.42 

100.22 

8 

4.27 

1 .655E+04 

2.454E+04 

1 .092E+06 

44.50 

100.29 

9 

4.79 

1 .694E+04 

2.437E+04 

1  .l05Et-0E 

45.35 

99.98 

10 

4.78 

1 .707E+04 

2.456E+04 

1 .09664-06 

44.61 

99.89 

1  1 

4.26 

1 .6906^04 

2.5i8E<^04 

1 .075E+06 

42.69 

99.76 

12 

3.74 

1 .641E+04 

Z.SZBEm 

1 .04064-06 

41.14 

100.13 

13 

3.22 

1 .588E+04 

2.SS9E+04 

9.960E4-05 

38.92 

99.93 

14 

2.70 

1 .S17E+04 

2.590E+04 

9.479E4-05 

36.60 

99.90 

IS 

2.18 

1 .423E+04 

2.621E+04 

8.896E4-05 

33.94 

100.21 

16 

1 .66 

1 .301E+04 

2.682E<^04 

8.10864-05 

30.23 

100.10 

17 

1 .14 

1 .127E+04 

2.779E+04 

6.98764-05 

25.14 

99.94 

18 

0.62 

9.003E+03 

3.6O0E4-04 

5.49064-05 

15.25 

99.86 

Least-squares  line  for  q  ■  e*delta-T''b 
a  *  E.382BE<«-0< 
b  *  7.5000E-01 


NOTE:  18  data  points  ware  stored  in  file  AT03I 
NOTE:  18  X-Y  pairs  were  stored  in  data  file 
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NOTE;  Proyr*«  riane  ;  DRPftLL 

Data  takan  by  ;  COBB 

Thia  analyiiB  dona  on  fila  :  ATB33 
This  analyaiB  includaB  and*fin  affact 
Tharnal  conductivity  «  39B.8  <U/n.K) 

Ins Ida  dianatar,  Di  ■  12.7B  (nn) 

OutBlda  dianatar.  Do  •  13.88  <nn> 

ThiB  analyBiB  uaas  tha  QUARTZ  THERNONETER  raadinQB 

flodlfiad  PatukbovPopov  coafficiant  *  2.5888 

UBinc  HEATEX  insart  inBlda  tuba 

Tuba  Enhancanant  :  DEEP  FILLET  FINNED  TUBE 

Tuba  natarial  ;  COPPER 

PraBBura  condition  :  ATMOSPHERIC 

NuBBalt  theory  ib  uBad  for  Ho 


Cl  < based  on 

Patukhov-Popov )  *  3 

.8216 

Alpha 

Ibasad 

on  Nussalt 

(Tdell)  «  1 

.8888 

Enhancanant 

<q) 

«  2 

.721 

Enhancanent 

<0el-T) 

«  2 

.119 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

<n/s  > 

IW/n'Z-K ) 

<U/n*2-K  ) 

(W/n'‘2) 

<C> 

1 

4.27 

1 .576E+84 

2.278E■^84 

1 .822E+86 

44.86 

2 

3.75 

1 .539E+84 

2.383E<^84 

9.9B9E+85 

43.29 

3 

3.23 

1 .5886-^84 

2.378E+84 

9.69eE<«-85 

48.92 

4 

2.71 

1 .442E+84 

2.399E<^84 

9  333E+85 

38.98 

5 

2.19 

1 .349E-^84 

2.411E+84 

8.786Et'85 

36.44 

6 

1  .67 

1 .261E4-84 

2. 5636^84 

e.2l7E+85 

32.85 

7 

1.15 

1.112E+84 

2.752E+84 

7.197E+85 

26.15 

8 

1.15 

1 . 185E-»-84 

2.743E+84 

7.296E+85 

26.59 

9 

1 .67 

1  .256E<)'84 

2.567E+84 

8.328E^85 

32.41 

18 

2.19 

1 .3476-^84 

2 . 423E+84 

8.966E4-85 

37.88 

1 1 

2.71 

1 .435E+84 

2.399E-*-84 

9.566E-t-8S 

39.87 

12 

3.23 

1 .581Ei-84 

2.371E+84 

9.949E<^85 

41.96 

13 

3.75 

1 .5E3E'^84 

2.364E+84 

1 .825E+86 

43.48 

14 

4.27 

1 .59EEt-84 

2.322E+84 

1 .839E+86 

44.75 

Least- 

■squares  line  for  q 

■  a*delto-T‘ 

'b 

a  *  E.8352E-«-84 
b  *  7.5888E-81 


NOTE:  U  data  pointB  ware  stored  in  file  AT033 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 


Ts 

<C> 

59.88 

188.88 

89.88 
99.98 

188.88 

188.85 
99.97 

188.18 

99.59 

188.88 

188.86 
99.85 

188.82 

99.82 
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NOTE:  Progran  nanc  :  ORPALL 

Data  takan  by  :  COBB 

Thia  analyiik  dona  on  fila  :  AT661 
This  analyaia  includai  and~fin  affact 
Tharnal  conductivity  *  S5.3  (U/n.K) 

Inaida  dianatar,  Oi  ■  12. 7C  <nn) 

Outaida  dianatar.  Do  ■  13. B8  (nn> 

Thia  analyaia  uaaa  tha  QUARTZ  THERNOMETER  raadings 

nodi f lad  PatukhovPopov  coafficiant  *  2.SB0S 

Uaing  HEATEX  inaart  inaida  tuba 

Tuba  Enhancanant  :  RECTANGULAR  FINNED  TUBE 

Tuba  notarial  :  90/IB  CU/NI 

Praaaura  condition  :  ATHOSPHERIC 

Nuaaalt  theory  ia  uaad  for  Ho 


Ci  (baaad  on 

Patukhov-Popov )  ■  2 

.7938 

Alpha 

(baaad 

on  Nuaaalt 

(Tdal ))  *  1 

.3004 

Enhancanant 

<Q) 

«  1 

.763 

Enhancanant 

(Dal-T) 

«  1 

.530 

Data 

Uw 

Uo 

Ho 

Qp 

Tcf 

t 

(n/a ) 

<U/n*2-K) 

(U/n*2-K  > 

(U/n*2) 

(C> 

1 

0.63 

6.424E4-03 

2.240E-^04 

4.4555-^05 

19.89 

2 

1.15 

7.797E+03 

1 .81  IE-^04 

5.480E-*-05 

30.26 

3 

1 .68 

8.8005-^03 

1 .749E-f04 

6.133E-I-05 

35.06 

4 

2.20 

9.4g5E-«-03 

1 .725E-*-04 

6.615E-I-05 

38.36 

5 

2.72 

1.005E-^04 

1 .715E-I-04 

6.8865-^05 

40.15 

6 

3.23 

1 .047E-*-04 

1 .703E-^04 

6.9365-^05 

41 .08 

7 

3.75 

1 .036E+04 

1 .737E+04 

7.222E+05 

41 .57 

8 

4.27 

1 .113E+04 

1 .710E-»04 

7.337E-^05 

42.91 

9 

4.79 

1 . 124E-»-04 

1 .6815-^04 

7.40654-05 

44.05 

10 

4.79 

1.1255-^04 

1 .6845-^04 

7.4285+05 

44.11 

1 1 

4.27 

1 .1O6E-t-04 

1 .6915-^04 

7.27GE+05 

43.02 

12 

3.75 

1 .0945-^04 

1 .729E-^04 

7.152E+05 

41 .37 

13 

3.23 

1 .070E-*-04 

1 .754E-^04 

6.962E+05 

39.69 

14 

2.71 

1 .0305^04 

1 .7666-^04 

6.709E+05 

37.98 

15 

2.19 

9.747E-^03 

1 .772E-*-04 

6.365E+05 

35.93 

16 

1 .67 

9.042E-i'03 

1 .796E->04 

5.9005+05 

32.86 

17 

1.15 

8.043E-*-03 

1  .863E-»^04 

5.257E+05 

28.27 

18 

0.62 

6.527E-J-03 

2.187E-^04 

4.215E+05 

19.28 

Laast-aouaras  Una  for  q  «  a^dalta-T'b 
a  «  4.367JE+04 

b  «  7.50OOE-O1 


Ta 

(C> 

100.03 

93.73 

99.80 
99.96 
93.82 

100.06 

93.80 

93.80 

93.81 

100.00 

99.99 

93.88 
99.84 
39.80 
99.95 

99.92 

99.93 

93.89 


174 


NOTE:  ProgrAn  nane  :  DRPALL 

Data  takan  by  :  COBB 

This  analyaiB  dona  on  fila  :  ATBS3 
This  analysis  includas  and-fin  affacl 
Tharnai  conductivity  •  SB. 3  <U/n.K> 

Inslda  dianatar,  Ol  •  t2.7B  (nn> 

Outside  dianatar.  Do  *  13. B8  (pm> 

This  analysis  uses  the  QUARTZ  THERtlOAETER  raadinQs 

Modified  Patukhov-Popov  coefficient  »  2.5B8B 

UsinQ  HEATEX  Insert  inside  tube 

Tuba  Enhancenent  :  RECTANGULAR  FINNED  TUBE 

Tuba  naterial  :  9B/IB  CU/NI 

Pressure  condition  :  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on 

Patukhov-Popov )  •  2 

.5534 

Alpha 

(based 

on  Nusselt 

(Tdal ))  •  1 

.2925 

Enhancenent 

(Q) 

«  1 

.749 

Enhancenent 

(Dal-T> 

»  1 

.521 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

( n/5 ) 

(U/n'‘2-K ) 

(U/n'‘2-K ) 

<«/n'‘2  > 

(C) 

s 

1 

4.29 

1 .0676404 

1 .670E+04 

7.452E+05 

44.62 

3.77 

1 .047E404 

1 .6926+04 

7.313E+05 

43.22 

3 

3.24 

1 .021E+04 

1 .716E+04 

7.084E+05 

41 .28 

4 

2.72 

9.886E403 

1 .7546+04 

6. 8356+05 

38.97 

5 

2.20 

9.330E403 

1 .7606+04 

6.4136+05 

36.43 

6 

1 .67 

8.658E403 

1 .8036+04 

5.9026+05 

32.73 

7 

1 .15 

7.818E+03 

1 .971E+04 

5.2896+05 

26.84 

8 

1.15 

7.81 16+03 

1 .972E+84 

5.2976+05 

26.85 

9 

1 .67 

8.627E403 

1 .792E+04 

5.9086+05 

32.96 

10 

2.20 

9.2826+03 

1 .7436+04 

6.3686+05 

36.54 

1 1 

2.72 

9.79SE+03 

1 .723E+04 

6.7406+05 

39.12 

12 

3.24 

1 .0166+04 

1 .6996+04 

6.9776+05 

41 .06 

13 

3.76 

1 .0346+04 

1 .5536+04 

7.0996+05 

42.94 

14 

4.28 

1 .857E+04 

1 .641E+04 

7.2496+05 

44.18 

Laast-sQuares  Una  for  q  «  a*dalta-T“b 
a  *  4.3316E'fe4 

b  «  7.SOBBE-BJ 


NOTE:  K  data  points  were  stored  in  file  ATBE3 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 


Ta 

<C) 

99.87 

lee.ie 

180.03 

100.01 

100.08 

99.94 

99.93 

99.95 
100. OZ 

99.98 

100.05 

99.95 

99.94 

100.01 
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NOTE:  ProQran  nane  :  ORPALL 

Data  takart  by  :  COBB 

This  analysis  dona  on  fila  :  ATBTt 
This  analysis  includas  and'-fin  effect 
Tharnal  conductivity  •  14.3  <U/k.K) 

Inside  diameter,  Oi  *  12.70  < mm) 

Outside  diameter,  Oo  *  13.88  <mm> 

This  analysis  usee  the  QUARTZ  THERtlOMETER  raadinQS 

Modified  Petukhov-Popov  coefficient  «  2.5000 

UsinQ  HEATEX  insert  inside  tube 

Tube  Enhancement  :  DEEP  FILLET  FINNED  TUBE 

Tube  material  :  STAINLESS-STEEL 

Pressure  condition  :  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  < based  on 

Petukhov-Popov )  *  2 

.2578 

Alpha 

< based 

on  Nusselt 

<Tdel))  •  1 

.0063 

Enhancement 

<Q> 

•  1 

.252 

Enhancement 

tOel-T) 

*  1 

.184 

Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

<m/s ) 

<U/m*2-K  > 

<U/m'2-K) 

(U/m*2 ) 

<C> 

<C> 

1 

4.31 

6.S15E-I-03 

1 .332E-^04 

4.gg5E-t-05 

37.51 

100.02 

2 

3.78 

6.849E^03 

1.362E-*04 

4.945E-»-05 

36.31 

100.02 

3 

3.25 

6.786E+03 

1  .41 1E-*04 

4.887E-*05 

34.64 

99.98 

4 

2.73 

6.S47E+03 

1 .407E-*-04 

4.698E-*05 

33.38 

99.95 

S 

2.20 

6.344E-«-03 

1  .459E-*04 

4.536E-^05 

31.10 

100.00 

6 

1 .68 

5.950E’t-03 

1  .483E-*04 

4.2546*05 

28.68 

100.09 

7 

1.15 

5.377E+03 

1 .542E-*04 

3.8166*05 

24.75 

100.01 

8 

1.15 

5.3856-^03 

1 .550E-V04 

3.8276*05 

24.68 

100.03 

9 

1 .68 

5.9626-^03 

1 .4S2E-t-04 

4.2E7E+05 

28.60 

100.06 

10 

2.20 

6.370E-»-03 

1  .475E-»-04 

4.573E+05 

31 .00 

100.01 

11 

2.73 

6.587E-^03 

1 .427E-*04 

4.739E+05 

33.21 

99.97 

12 

3.25 

6.8526-^03 

1 .433E-*-04 

4.S32E*05 

34.27 

100.01 

13 

3.78 

6.9186*03 

1 .389E-V04 

4.9916*05 

35.93 

100.08 

14 

4.30 

E.991E-*03 

1  .359E-*-04 

5.0266*05 

36.98 

100.04 

Least- 

SQuares  line  for  q 

*  a*delta-T' 

'b 

a  *  3.4U5E+B4 

b  *  7.5000E-01 


NOTE:  14  data  points  were  stored  in  file  AT07I 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 
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NOTE:  ProQran  n«ne  :  DRPALL 

Oat*  taken  by  :  COBB 

This  analyaia  dona  on  file  :  PTBBi 
This  analyaia  includaa  and-fin  affect 
Tharnal  conductivity  •  14.3  <U/n.K) 

Inside  diameter,  Oi  ■  12.70  tnn) 

Outside  dianeter.  Do  ■  14.38  <ne> 

This  analysis  uses  the  QUARTZ  THERMOMETER  readings 

Modified  PetukhovPopov  coefficient  *  2.5000 

Using  HEATEX  insert  inside  tube 

Tube  Enhancement  :  SHALLOW  FILLET  FINNED  TUBE 

Tube  material  :  STAINLESS-STEEL 

Prassure  condition  :  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on 

Petukhov-Popov  >  *  2 

.3495 

Alpha 

(based 

on  Nusselt 

(Tdel ))  «  0 

.9812 

Enhancement 

(q) 

*  1 

.21 1 

Eiiiiaiiwwnent 

(Oel-T> 

*  1 

.154 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(m/s ) 

(W/m*2-K ) 

(U/m*2-K  > 

(W/m‘‘2  > 

(C> 

(C 

1 

4.32 

6.08OE<t-03 

1 .328E-^04 

4.498E-^05 

33.87 

99.99 

3.79 

6.059E>03 

1 .371E-»-04 

4.439E-^05 

32.38 

99.89 

3 

3.2E 

5.9E8E«03 

1 .3985-^04 

4.366E-^05 

31 .24 

99.93 

4 

2.73 

5.805E4-03 

1 .408E-«-04 

4.239E-f05 

30.10 

100.03 

5 

2.21 

5.5965-^03 

1 .4295-^04 

4.067E-^05 

28.47 

99.97 

E 

1 .68 

5.320E-*-C3 

1  .4775-^04 

3.8E0E-t-05 

26.13 

100.14 

7 

1.15 

4.8595-^03 

1 .5395 -►04 

3.495E-*-05 

^ 

99.99 

8 

1.15 

4.859E-^03 

1  .538Et-04 

3.496E+05 

100.05 

S 

1 .68 

5.3185^03 

1  .475E-^04 

3.851E-*-05 

26.10 

100.01 

10 

2.21 

5.648E-^03 

1 .452E-t-04 

4.102E4-05 

28.05 

100.02 

1 1 

2.73 

5.884E+03 

1 .453E•^04 

4.271E-^05 

29.40 

99.99 

12 

3.26 

6.036E-i-03 

1  .433E-*-04 

4.391E-*-05 

30.55 

100.03 

13 

3.78 

E.096E-I-03 

1  .387E-«-04 

4.437E+05 

31  .99 

100.03 

14 

4.31 

6.228E-«-03 

1  .394E-t-04 

4.527E-^05 

32.47 

100.10 

Least- 

squares  line  for  q 

»  a*delte-T 

*b 

a  * 

3.322 

15^04 

b  «  7.SeeOE-01 


NOTE:  14  data  points  were  stored  in  file  AT081 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 
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NOTE:  Progran  n«M«  :  ORPALL 

Data  takan  by  :  COBB 

Thii  analyftik  dona  on  fila  :  ATB41 
This  analyala  includat  and-fin  affact 
Thamal  conductivity  •  S5.S  (W/n.K) 

Xnalda  dianatar,  Di  •  12. 7B  (nn) 

Outalda  dianatar.  Do  •  tS.BB  (nn) 

TMa  analyila  uaaa  tha  QUARTZ  THERtlONETER  raadingk 

Hodlfiad  Patukhov-Popov  coafficiant  •  2.S80B 

Uaing  HEATEX  inaart  inaida  tuba 

Tuba  Enhancanant  :  DEEP  FILLET  FINt4E0  TUBE 

Tuba  notarial  :  SB/ IB  CU/NI 

Praaaura  condition  :  ATHOSPHERXC 

Nuaaalt  theory  is  uaad  for  Ho 

Cl  (basad  on  Patukhov-Popov )  •  2.C453 


Alpha 

<baaad 

1  on  Nuaaalt 

(TdaD)  •  1 

.8511 

Enhancanant 

<Q) 

■  1 

.327 

Enhancanant 

<0al-T) 

«  1 

.237 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ta 

t 

<n/a ) 

<W/n*2-K) 

<U/n"2-K> 

IW/n^Z) 

<C> 

<C) 

1 

4.28 

9.1BBE4-B3 

1 .295E<fB4 

6.161E4-B5 

47.56 

188.12 

2 

3.7S 

9.B3SE-t-B3 

1.321E4B4 

6.B1SE4-B5 

45.52 

99.92 

3 

3.23 

8.924E4-B3 

1.3S1E<t-B4 

5.889E<^BS 

43.59 

99.94 

4 

2.7B 

8.68BE4B3 

f  .36eE'»B4 

5.6S4E<^B5 

41.34 

99.92 

5 

2.18 

8.328E<t>B3 

1 .385E4-B4 

5.374E^B5 

38.88 

99.97 

6 

1.66 

7.897E+83 

1 .434E4B4 

~.B68E4>B5 

35.34 

188.17 

7 

1.14 

7.133E+B3 

1.49BE4-B4 

4.539E-^B5 

38.47 

188.84 

8 

1.14 

7.136E+B3 

1.49BE4-B4 

4.S4BE4>B5 

38.46 

188.86 

9 

1.66 

8.875E4'B3 

1 .7S8E<t’B4 

S.BBBE-^BS 

31.62 

188.82 

IB 

2.18 

8.434E<t-B3 

1 .41BE4-B4 

5.373E+B5 

38.89 

99.96 

11 

1.66 

7.871E+83 

1.421E'«‘B4 

4.987E’»^B5 

35.18 

188.18 

12 

2.78 

8.73SE+B3 

1 .374E+94 

S.547E<i-B5 

48.36 

99.92 

13 

3.22 

9.B49E1-B3 

1 .371E+B4 

S.736E-^B5 

41.84 

93.82 

14 

3.74 

9.2B3E-^83 

1.347E+B4 

5.827E-^B5 

43.25 

99.99 

Laaftt'ipuaraft  Una  for  q  «  a*dalta>T'‘b 
a  >  3.51S2E4^B4 

b  «  7.SBBBE-B1 


NOTE:  14  data  pointa  ware  atorad  in  fila  ATB4I 
NOTE:  14  X-Y  paira  uara  atorad  in  data  fila 
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NOTE:  Proor»t»  n*ne  :  ORPALL 

Data  t*k«n  by  :  COBB 

TMft  tnAlytlk  dont  on  filo  :  ATB51 
This  anolyiis  includot  ond-fin  offoct 
Tbornol  conductivity  *  5S.3  (W/n.K > 

Inside  dieneter,  Ol  •  12. 7B  (nn) 

Outside  dieneter.  Do  «  14.38 

TMs  enelysis  uses  the  QUARTZ  THERNOnETER  reedings 

Nodified  Petukhov-Popov  coefficient  «  2.5BB8 

Using  HEATEX  insert  inside  tube 

Tube  Enhencenent  :  SHALLOW  FILLET  FINNED  TUBE 

Tube  neteriel  :  90/18  CU/NI 

Pressure  condition  :  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  <be8ed  on 

Petukhov-Popov )  *2 

.6676 

Alpha 

< based 

on  Nusselt 

<Tdel ))  •  1 

.8505 

Enhancenent 

<q) 

«  1 

.343 

Enhancenent 

<Del-T> 

■  1 

.248 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(n/s ) 

(U/n'Z-K ) 

<U/i*.*2“K) 

<U/n'‘2 ) 

(C> 

1 

4.30 

8.577E+03 

1 .288E-t^04 

6.138E-4-05 

47.65 

2 

3.78 

8.491E<»-03 

1.313E-*-04 

6.0615^05 

46.17 

3 

3.25 

8.3g3E-»-03 

1 .343E-I-04 

6.8165-^05 

44.61 

4 

2.73 

8.115E-*-03 

1.358E-»-04 

5.8245-^05 

42.87 

5 

2.21 

7.747E+03 

1 .370E+04 

5.582E-t^05 

40.73 

6 

1 .68 

7.36BE+03 

1 .436E-^04 

5.3015-^05 

36.92 

7 

1 . 15 

6.646E-^03 

1 .502E-t-04 

4.757E-^05 

31 .68 

8 

1.15 

6.6485-^03 

1 .5035-^04 

4.778E+05 

31.78 

9 

1 .68 

7.33lE-^03 

1 .428E-»-04 

5.315E4-05 

37.22 

10 

2.21 

7.823E+83 

1.399E+04 

5.685E-»^85 

40.65 

11 

2.73 

8.125E-»-03 

1 .356E-»-04 

5. 91 0E  4-05 

43.28 

12 

3.26 

8.373E+03 

1 .347E-»04 

6.063E-405 

45.00 

13 

3.78 

8.568E-t-03 

1 .334E-^04 

6.1945-405 

46.43 

14 

4.31 

8.6855-^03 

1.3155-1-04 

6.274E-405 

47.70 

Least- 

-squares  line  for  q 

■  B*delte-T 

"b 

B  «  3.43l8E-»-e4 

b  *  7.S000E-01 


NOTE:  14  dete  points  were  stored  in  file  AT051 
NOTE:  14  X*Y  peirs  were  stored  in  dete  file 


Ts 
<C  > 

100.17 
99.87 

100.12 

99.92 

100.13 

100.13 

99.96 

180.18 
100.01 
100.07 
100.04 

99.96 

93.99 

83.38 
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NOTE:  Progr*"  n««»  *•  ORPALL 

Oat A  takan  by  :  COBB 

TMb  analytia  done  on  fxla  :  RTBBI 
This  analyaiB  includaa  and*fin  affect 
Tbarnal  conductivity  •  1*.3  (W/n.K) 

Inal da  dianatar,  Dl  •  12.70  (nn) 

Outalda  dianatar.  Do  •  13. B8  Inn) 

Thia  analyaia  uaaa  tha  QUARTZ  THERtlONETER  raadmoa 

Nodifiad  Patukhov-Popov  coafficiant  *  2. 5000 

Uainp  HEATEX  inaart  inaida  tuba 

Tuba  Enhancanant  :  RECTAN6ULAR  FINNED  TUBE 

Tube  naterlal  :  STAINLESS-STEEL 

Preaaura  condition  :  ATMOSPHERIC 

Nuaaalt  thaory  la  uaad  for  Ho 


Cl  (baaed  on 

Petukhov-Popov )  •  2 

.1128 

Alpha 

(baaed 

on  Nuaaalt 

(TdaD)  «  1 

.0062 

Enhancenent 

(Q) 

•  1 

.252 

Enhancanent 

(Oal-T) 

*  1 

.  184 

Data 

Uu 

Uo 

Ho 

QP 

Tcf 

Ta 

t 

(K/a ) 

(U/n'2-K ) 

<U/i».*2-K ) 

(W/n*2 ) 

(C) 

(C 

\ 

4.25 

7.158E+03 

1 .419E-»-04 

4.434E+05 

31.24 

99.98 

2 

3.72 

7.015E+03 

1 .420E-I-04 

4.31 1E+05 

30.35 

100.04 

3 

3.20 

6.896E<^03 

1  .446E-t-04 

4.196E+05 

29.02 

100.20 

4 

2.70 

6.719E+03 

1 .492E+04 

4.268E+05 

28.61 

99.98 

5 

4  0 

4  •  1  O 

6.329E+03 

1 .4636+04 

4.0816+05 

27.89 

99.87 

E 

1  .66 

5.923E+03 

1 .495E+04 

3.905E+05 

26.11 

100.03 

•a 

f 

1 .14 

5.399E+03 

1 .617E+C4 

3.5656+05 

22.05 

99.79 

8 

1.15 

5.390E+83 

1 .6186+04 

3.604E+05 

22.28 

100.07 

S 

1  .67 

5.932E+03 

1 .521E+04 

4.0216+05 

26.44 

99.99 

10 

2.19 

E.318E<«-03 

1 .4866+04 

4.320E+05 

29.07 

99.98 

1 1 

2 . 72 

6.6646-^03 

1.500E+04 

4.596E+05 

30.64 

99.99 

12 

3.24 

E.858E-«-03 

1 .474E+04 

4,7536+05 

32.24 

99.96 

13 

3.77 

6.99lE-*-B3 

1 .4486+04 

4.874E+05 

33.66 

99.95 

14 

4.29 

7.087E+03 

1 .423E+04 

4.941E+05 

34.73 

99.77 

Leaat- 

-aouarea  line  for  q 

»  a*dalta-T 

"b 

a  ■ 

3.4378E+04 

b  * 

7.5000E-81 

NOTE: 

14  data  pointa  ware  atored  in 

file  AT091 

NOTE: 

14  X-Y 

paira  were 

atored  in  data  file 
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NOTE:  Progran  n#«e  :  DRPALL 

Okta  taken  by  :  COBB 

Thia  analysis  dona  on  file  :  ATB94 
This  analysis  includes  and-fin  affect 
Tharnal  conductivity  ■  14.3  XW/n.K) 

Inside  dianetar.  Oi  ■  12.70  (nn) 

Outside  dlanetar,  Oo  «  13.B8  (nn) 

This  analysis  uses  the  QUARTZ  THERtlOMETER  readings 

nodi fled  Petukhov-Popov  coefficient  »  2.5000 

Using  HEATEX  insert  inside  tube 

Tube  Enhancanent  :  RECTANGULAR  FINNED  TUBE 

Tube  material  :  STAINLESS-STEEL 

Pressure  condition  :  ATnOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  <based  on 

Petukhov-Popov)  *  2 

.0981 

Alpha 

(based 

on  Nusselt 

<Tdel ))  «  1 

.1333 

Enhancenent 

<q) 

«  1 

.4E8 

Enhancanent 

<0el-T) 

«  1 

.333 

Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

<n/s ) 

<W/n*2-K  > 

<W/n*2-K) 

<W/n*2 ) 

<C) 

(C 

\ 

4.23 

7.431E+03 

1 .E02E4O4 

S.248E<^05 

32. 7B 

99.93 

3.77 

7.354E+03 

1 .821E+04 

S.U7E+05 

31.74 

99.91 

3 

3.24 

7.216E4Q3 

1.EE2E-«-04 

5.04SE<»-05 

30.35 

100.01 

4 

2.72 

e.956E-»-03 

1.B73E+04 

4.853E-^05 

23.01 

39.32 

5 

2.20 

6.563E-»-03 

1.E54E404 

4.S73E+05 

27.  B5 

33.95 

6 

1  .B7 

E.158E-I-03 

1 .718E+04 

4.287E+05 

24. 9E 

99. 9E 

7 

1.15 

5.5EEE-«-03 

1 .8E1E+04 

3.843E-^05 

20.55 

33.81 

8 

1.15 

5.5E7Ei-03 

1 .8E5E4-04 

3.851E+05 

20.  E5 

93.81 

3 

1  .S7 

E.182E-«-03 

1 .733E+04 

4.32BE4-05 

24.88 

100.15 

10 

2.20 

E.E08E-«-03 

1 .B87E+04 

4.B31E-t-05 

27. 4B 

93.95 

11 

E.348E<t-03 

1 .B73E+04 

4.879E-«-05 

29.17 

93.83 

12 

3.25 

7.212E+03 

1 .EE4E+04 

5.085E4-O5 

30.55 

100.09 

13 

3.77 

7.339E+03 

1 .B17E+04 

5.173E+05 

32.00 

100.02 

14 

4.23 

7.50BE+03 

1 .B10E+04 

5.275E+05 

32. 7B 

93.35 

Least- 

squares  line  for  q 

■  a*delta-T‘ 

‘b 

a  >  3.87E3E'»-04 

b  *  7.5000E-O1 

NOTE:  14  data  points  were  stored  in  file  AT034 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 
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NOTE:  ProQrwt  :  DRPALL 

Data  takari  by  :  COBB 

Thia  anaiyais  bone  on  file  :  RTIBI 
Thia  analyaia  includea  end-fin  effect 
Thernal  conductivity  ■  231.8  (W/n.K) 

Inaide  diameter,  Di  «  12.76  < mm > 

Out  aide  diameter.  Do  ■  13. SB  < mm) 

Thia  analyaia  uaea  the  0URRT2  THERMOMETER  readinoa 

Modified  Petukhov-Popov  coefficient  »  2.5666 

Usino  HEATEX  inaert  inaide  tube 

Tube  Enhancement  :  RECTANGULAR  FINNED  TUBE 

Tube  material  :  ALUMINUM 

Preaaure  condition  :  ATMOSPHERIC 

Nuaaelt  theory  ia  uaed  for  Ho 


Ci  ibaaed  on  Petukhov-Popov)  ■  2.3854 

Alpha  (baaed  on  Nuaaelt  (Tdel))  •  1.784G 

Enhancement  <q)  •  2. BBS 

Enhancement  <0el-T)  •  2.168 


lata 

Uu 

« 

(m/s  / 

1 

4.27 

2 

3.75 

9 

3 

4 

2.71 

5 

2.19 

G 

1 .57 

7 

1.15 

8 

1.15 

9 

1 .57 

10 

2.26 

1 1 

2.72 

12 

3.24 

13 

3.75 

14 

4.28 

Uo 

<W/m'2-K) 
1 .470E+e4 
1  .4UE+64 
I .359E+64 
1 .288E+04 
1 .197E+64 
1 .6918+64 
9.571E+63 
9.581E+03 
1 .682E+64 
1 .192E+64 
1 .297E+04 
1 .371E+64 
1 .446E+64 
1 .49IE+64 


Ho 

Qp 

Tcf 

Ts 

<«/m*2-K  ) 

(W/m'“2 ) 

(C> 

(C 

2.3G6E+64 

9.514E+65 

46.74 

166.66 

2.358E+64 

9.293E+65 

39.42 

166.61 

2.389E+04 

8.9955+65 

37.55 

166.12 

2.426E+64 

8.54GE+65 

35.31 

99.92 

2.45BE+64 

7.973E+65 

32.45 

99.91 

2.572E+04 

7.292E+65 

28.35 

99.95 

2.923E+84 

B.394E+65 

21 .88 

166.11 

2.9G7E+04 

G.4GGE+05 

21 .80 

166.62 

2.558E+64 

7.393E+65 

28.96 

99.98 

2.4B2E+64 

8.138E+05 

33.65 

166.14 

2.47GE+64 

8.834E+05 

35.58 

106.15 

2.449E+64 

9.285E+65 

37.92 

166.65 

2.449E+84 

9.722E+65 

39.59 

166. 16 

2.435E+64 

1 .667E+0G 

41.37 

100.69 

Least-squares  line  for  q  *  a*delta-T*b 
a  «  G.633BE+64 

b  »  7.5666E-61 


NOTE:  14  data  points  were  stored  in  file  AT161 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 
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NOTE*.  Proof'**'-  *'•*'«  •  DRPALL 

Oat*  taken  by  :  COBB 

This  onolykia  dona  on  ft  la  :  ATtB3 
Thta  analyiis  includaa  and~fin  affect 
Tharnal  conductivity  ■  231.8  (W/n.K) 

Inal  da  dianetar .  Oi  ■  t2.7B  (nn) 

Outalda  dianatar  ,  Do  ■  13. B8  (*m) 

This  analysis  uses  the  QUARTZ  THERflOMETER  readinos 

flodifiad  Patukhov-Popov  coefficiant  «  2.5008 

Using  HEATEX  insert  insida  tuba 

Tuba  Enhancanant  :  RECTAN6ULAR  FINNED  TUBE 

Tuba  i^atarial  :  ALUAlNUtl 

Pressure  condition  :  ATMOSPHERIC 

Nussalt  theory  is  used  for  Ho 

Cl  (based  on  Petukhov^Popov )  *  2.2817 


Alpha 

(based 

on  Nussalt 

(Tdel ))  «  1 

.6987 

Enhancenent 

(q ) 

•  2 

.517 

Enhancenent 

(Dal-T) 

«  1 

.938 

Data 

Uw 

Uo 

Ho 

Op 

Ttf 

Ts 

t 

(n/s  ) 

(U/n*2-K  > 

(U/i«i*2-K  > 

(U/i».*2  > 

(C ) 

(C> 

t 

1 

4.27 

1  .488E'»-e4 

2.38654-84 

3.3386*85 

48.45 

188.82 

2 

3.75 

1 .352E+84 

2.31SE+84 

8.8365*85 

38.15 

188.89 

3 

3.22 

1 .315E4-84 

2.3S3E4-84 

8.3455*85 

35.47 

188.12 

4 

2.78 

1 .248E+84 

2.37SE4-04 

7.741 E*8S 

32.59 

93.85 

5 

2.18 

1 .178E+04 

2.453E4-04 

7.245E*85 

29.54 

99.85 

6 

1 .55 

1 .86554-84 

2.5735*84 

5.5885*85 

25.68 

188.14 

•0 

i 

1.14 

9.217E+83 

2.823E+84 

5.5825*85 

28 . 1 3 

188.87 

8 

1.14 

3.222E+83 

2.827E+84 

5.6835*85 

28.18 

188.85 

S 

1  .55 

1 .85254-84 

2.557E+84 

5.5835*85 

25.74 

99.86 

18 

2.18 

1 .171E4-84 

2.4S3E+84 

7.258E*85 

29.55 

99.97 

1 1 

2.78 

1  .25254-84 

2.421E+84 

7.822E*85 

32.31 

188.82 

12 

3.21 

1 .32254-84 

2.353E+84 

8.163E+85 

34.59 

188.83 

13 

3.73 

1 .37854-04 

2.325E+04 

8.471E*85 

35.43 

188.62 

14 

4.25 

1 .419E4-84 

2.291E+84 

8.5895*85 

o-' 

J  1 . 

39.92 

Least-squares  line  for  q  *  e«delta-T*b 
a  *  S.7722E+04 

b  »  7.5008E-81 


NOTE:  14  data  points  were  stored  in  file  AT103 
NOTE:  14  X-Y  pairs  ware  stored  in  data  file 
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NOTE:  Progrtr.  ntne  :  DRPALL 

Data  takan  by  :  COBB 

TMa  artalyila  dona  on  fila  :  AT1 12 
Thia  analyaii  includaa  and-fin  affact 
Tharnal  conductivity  *  231.8  (W/n.K) 

Inside  dianatar.  Oi  ■  12.70  (nn) 

Outside  dianatar,  Oo  *  13.88  (nn) 

This  analysis  usas  the  QUARTZ  THERAOtlETER  raadings 

flodifiad  Patukhov-Popov  coefficiant  *  2.5880 

Using  HEATEX  insart  inside  tuba 

Tube  Enhancanent  ;  DEEP  FILLET  FINNED  TUBE 

Tube  natarial  :  ALUMINUM 

Pressure  condition  :  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 


Cl  Ibased  on 

Petukhov-Popov )  *  2 

.3321 

Alpha 

(based 

on  Nusselt 

(Tdel  )>  •  1 

.5622 

Enhancanent 

<q) 

«  2 

.251 

Enhancanent 

(Del-T) 

«  1 

.838 

Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s ) 

<U/n*2-K ) 

<U/n"2-K) 

<U/n*2  > 

(C) 

(C 

1 

4.29 

1  .286E-»84 

1 .9686+84 

8.979E+85 

45.63 

99.97 

3.77 

1 .263E+84 

2.8186+84 

8.767E+85 

43.45 

188.01 

3 

3.24 

1 .227E+04 

2.0E2E+84 

8.424E+05 

48.85 

99.87 

4 

2.72 

1.1746+84 

2.1816+84 

8.819E+85 

38.17 

188.08 

5 

2.19 

1 .187E+84 

2.158E+84 

7.487E+85 

34.69 

188.84 

6 

1 .67 

1 .817E+84 

2.253E+84 

6.828E+85 

38.27 

188.84 

7 

1.15 

8.897E+83 

2.4S3E+84 

5.988E+05 

24.09 

99.99 

8 

1.15 

8.884E+83 

Z.443E+04 

5.9835+85 

24.16 

188.83 

S 

1 .67 

1 .816E+84 

2.243E+84 

E.791E+85 

38.27 

108.06 

18 

2.19 

1.11 86+84 

2.161E+84 

7.422E+85 

34.35 

99.97 

1 1 

2.71 

1 .187E+84 

2.125E+84 

7.92BE+05 

37.30 

99.93 

12 

3.23 

1 .248E+84 

2.182E+04 

8.345E+85 

39.69 

108.87 

13 

3.75 

1 .292E+84 

2.867E+84 

8.574E+85 

41 .48 

99.99 

14 

4.26 

1 .324E+84 

2.821E+84 

8.578E+85 

42.44 

99.99 

Least- 

spuares  line  for  q 

«  a*delta-T 

’■b 

a  «  5.25l5E-»-84 

b  *  7.5088E-81 


NOTE:  14  data  points  were  stored  in  file  ATi12 
NOTE:  14  X-Y  peirs  were  stored  in  data  file 
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NOTE:  Prooraw  name  :  DRPALL 

Data  taken  by  :  COBB 

Thia  analyaia  dona  on  file  :  RTtSi 
Thia  analysis  includes  and-fin  affect 
Tharnal  conductivity  *  251.8  (U/n.K) 

Inside  dianater.  Oi  *  12.78  <nn) 

Outside  dianater.  Do  «  14.38  <nn) 

This  analysis  uses  the  QUARTZ  THERhOflETER  raadinos 

Modified  PetukhovPopov  coefficient  «  2.58B8 

Using  HEATEX  insert  inside  tuba 

Tube  Enhancenent  :  SHALLOW  FILLET  FINNED  TUBE 

Tube  natcrial  :  ALUfllNUtl 

Pressure  condition  :  ATMOSPHERIC 

Nusselt  theory  is  used  for  Ho 

Ci  Ibased  on  Petukhov-Popov )  ■  2.2589 


Alpha 

(based 

I  on  Nusselt 

(Tdel  )>  «  1 

.4417 

Enhancenent 

<q) 

*  2 

.823 

Enhancenent 

(Del-T) 

«  1 

.595 

Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s  ) 

<U/n'‘2-K  > 

(U/n'Z'K) 

(W/n‘2  > 

(C5 

(C> 

1 

4.27 

1 .285E‘^84 

1 .853E+84 

7.878E+85 

42.48 

188.85 

2 

3.75 

1 . 182E<^84 

1 .894E+84 

7.562E+85 

48.45 

99.91 

3 

3.74 

1 .181E+84 

1 .891E+84 

7.654E+85 

48.47 

99.95 

4 

3.22 

1 .148E+84 

1 .933E+84 

7.419E+85 

38.38 

188.87 

5 

2.78 

1 .894E>e4 

1 .956E+84 

7.856E+85 

36.87 

99.93 

6 

2.18 

1 .828E-«-84 

1 .99EE’«-84 

6.622E+85 

33.18 

188.81 

7 

1  .56 

9.399E+83 

2.8535+84 

6.821E+85 

29.32 

188.81 

8 

1 .14 

8.382E-^e3 

2.278E+84 

5.383E+85 

23.36 

188.88 

9 

1 .14 

8.383E+83 

2.275E+84 

5.314E+85 

23.36 

188.83 

18 

1  .55 

9.4eiE<^e3 

2.8625+84 

6.862E+85 

29.48 

99.93 

1 1 

2.18 

1 .833E+84 

2.8285+84 

6.598E+85 

33.12 

99.95 

12 

2.71 

1 .898E+84 

1 .949E+84 

7.898E+85 

35.38 

188.83 

13 

3.23 

1 .149E+84 

1 .942E+84 

7.488E+85 

38.51 

188.81 

14 

3.75 

1.188E+84 

1 .892E+84 

7.681E+85 

48.59 

99.95 

15 

4.25 

1 .21 1E+84 

1 .8555+84 

7.863E+85 

42.15 

99.99 

Least-squares  line  for  q  *  a*delta-T"b 
a  «  4.8156E-^84 

b  »  7.S888E-81 


NOTE*.  15  data  points  were  stored  in  file  ATI 31 
NOTE;  15  X-Y  pairs  were  stored  in  data  file 
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NOTE:  Progrsn  nane  :  DRPALL 

Data  takan  by  :  COBB 

Thii  analyaia  dona  on  fila  :  VTBil 
Thia  analyaia  includaa  and-fin  affact 
Tharnal  conductivity  •  3SB.8  (N/n.K) 

Inaida  dianatar,  Oi  •  12. 7B 

Outaida  dianatar.  Oo  ■  13. B8  (m) 

This  analytic  utat  tha  0URRT2  THERWOMETER  raadingt 

tlodifiad  Patukhov-Popov  coefficient  •  2.5808 

Ufiing  HERTEX  inaert  intida  tuba 

Tuba  Enhancanant  :  RECTRNBULRR  FINNED  TUBE 

Tuba  natariai  :  COPPER 

Prettura  condition  :  UACUUtI 

NuBsalt  theory  it  utad  for  Ho 


Cl  < based  on 

Patukhov-Popov )  •  2 

.9862 

Alpha 

<baBad 

on  NuBsalt 

<Tdal))  •  1 

.5085 

Enhancanant 

<Q) 

•  2 

.275 

Enhancanant 

<Del-T) 

»  1 

.853 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(n/s  > 

<U/n'2-K ) 

<U/n*2-K) 

(W/n*2  > 

<C> 

1 

2.21 

1.289E+84 

2.122E+84 

2.843E<«-85 

13.40 

2 

8.63 

7.899E+83 

2.965E-^04 

1.779E+85 

6.80 

3 

1 .16 

1 .087E+84 

2.465E+84 

2.317E+85 

9.48 

4 

8.63 

7.724E+83 

2.754E+84 

1 .751E+05 

6.36 

5 

1 .69 

1 .127E+84 

2.248E+84 

2.722E+05 

12.15 

6 

2.74 

1 .328E+84 

2.222E+84 

3.184E485 

14.33 

7 

3.27 

1.367E+84 

2.142E+84 

3.316Et85 

15.48 

8 

3.88 

1 .455E<^84 

2.212E+84 

3.426Et-85 

15.49 

9 

4.32 

1 .466E^84 

2.131E+84 

3.485E+85 

16.35 

18 

4.85 

1 .502E+84 

2.122E+84 

3.551E405 

16.74 

1 1 

4.32 

1 .431E+84 

2.05SE<^84 

3.315E+85 

16.13 

12 

3.79 

1 .439E+84 

2.171E+84 

3.325E+85 

15.31 

13 

3.27 

1 .386E+84 

2.183E+84 

3.286Ei-05 

15.05 

14 

2.74 

1 .322E+84 

2.2eeE<^84 

3.893E+85 

14.06 

15 

2.21 

1 .244E+84 

2.232E+84 

2.989E+85 

13.03 

16 

1 .68 

1 . 1 34E+84 

2.268E’t-e4 

2.647E+85 

1 1 .71 

17 

1.16 

9.984E+83 

2.362E+84 

2.334E+8S 

9.88 

18 

1 .16 

9.773E+83 

2.293E+84 

2.350E4-05 

18.29 

19 

1 .69 

1 . 172E+84 

2.417E+84 

2.820Et^05 

11.66 

Least 

-squares  line  for  i 

1  *  a*dalta-T 

‘b 

a  «  4.27S2E+8* 

b  -  7.5888E-81 


note*.  19  data  points  ware  stored  in  file  UT811 
NOTE;  19  X-Y  pairs  were  stored  in  data  file 


Ts 

(C) 

48.54 
48.69 
48.28 
48.47 
48.  B6 

48.49 
48.73 
48.31 
48.67 
48.78 
48.22 
48.35 
48.81 

48.49 

48.55 

48.49 
48.98 
49.37 
49. 18 
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NOTE:  Progran  nanc  :  ORPALL 

Data  takan  by  :  COBB 

Thik  analysia  dona  on  file  :  VTB21 
Tnia  analyaia  includaa  and-fin  affact 
Tharnal  conductivity  «  39B.8  <W/n.K) 

Inalda  dianetar,  Ol  ■  12. 7B  (nn) 

Outkida  dianatar.  Oo  *  14.58  (im) 

Tbia  analysis  uses  the  QUARTZ  THERnOflETER  readings 

nodifiad  Patukhov-Popov  coefficiant  «  2.5088 

Using  HEATEX  insart  inside  tube 

Tube  Enhancanent  :  SHALLOW  FILLET  FINNED  TUBE 

Tube  natarial  :  COPPER 

Pressure  condition  :  UACUUfi 

Nusselt  theory  is  used  for  Ho 

Cl  (based  on  Petukhov-Popov )  »  2.7942 


Alpha 

(based 

on  Nusselt 

(Tdel ))  «  1 

.1491 

Enhancement 

(q) 

«  1 

.594 

Enhancanent 

(Del-T) 

«  1 

.419 

Data 

Uu 

Uo 

Ho 

Qp 

Tcf 

Ts 

t 

(n/s ) 

(U/n*2-K ) 

(W/n'2-K  ) 

(U/n*2  > 

(C> 

(C) 

1 

8.63 

6.6l6E<«-83 

2.125E+04 

1 .5866+85 

7.46 

48.91 

2 

1.16 

8.435E+83 

1 .9816+04 

2.0626+05 

18.85 

48.66 

3 

1 .69 

9.253E+83 

1 .710E+04 

2.3026+05 

13.46 

48.78 

4 

2.22 

9.778E+83 

t.6l2E+04 

2.4626+05 

15.27 

48.97 

S 

2.74 

1 .04364-84 

1 .6236+84 

2.5946+05 

15.98 

48.65 

6 

3.26 

1 .189E-484 

1 .6496+84 

2.5326+05 

15.35 

48.35 

7 

4.84 

1 .1916+04 

1.6116+84 

2.6996+05 

16.75 

48.78 

8 

4.84 

1 . 1 99E+04 

1 .6246+84 

2.6256+05 

16.16 

48.45 

9 

4.31 

1 .181E+84 

1 .6386+04 

2.5266+05 

15.42 

48.71 

10 

3.77 

1.1626+84 

1 .6606+84 

2.3716+05 

14.28 

48.85 

1 1 

4.29 

1 . 1 83E+84 

1 .6346+04 

2.3346+05 

14.28 

48.85 

12 

3.76 

1 .172E+84 

1 .6736+04 

2.1966+05 

13.13 

48.87 

13 

3.24 

1 . 1606+84 

1 .7316+04 

2.0886+05 

12.06 

48.57 

14 

2.72 

1 .108E+84 

1 .7286+04 

1.9866+05 

11.49 

48.94 

IS 

2.19 

1 .0706+84 

1 .8836+04 

1.8166+05 

18.07 

48.56 

16 

1  .67 

1 .0076+04 

1 .8956+04 

1.6476+05 

8.70 

48.60 

17 

1.14 

8.778E+83 

1 .9116+84 

1.4096+05 

7.37 

48.79 

18 

8.62 

6.931E+03 

2.1356+04 

1.0786+05 

5.05 

48.92 

Least-squares  line  for  q  «  e»delta-T*b 
a  >  3.2492E-f84 

b  >  7.500OE-O1 


NOTE:  18  data  points  were  stored  in  file  UT821 
NOTE:  18  X-Y  pairs  uere  stored  in  data  file 
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NOTE:  Proof'ttw  nane  :  ORPALL 

Data  lakan  by  :  COBB 

This  analysis  dona  on  fila  :  VTf23 
This  analysis  includas  and-fin  affact 
Tharnal  conductivity  »  39B.8  (U/n.K) 

Inslda  dianatar.  Oi  •  12. 7B  (nn) 

Outsida  dianatar.  Do  *  14.38  <nn> 

This  analysis  usas  tha  QUARTZ  THERMOMETER  raadinQS 

Modi f lad  Patukhov-Popov  coafficiant  «  2.500C 

UsinQ  HEATEX  insart  insida  tuba 

Tuba  Enhancanant  :  SHALLOU  FILLET  FINNED  TUBE 

Tuba  natarial  :  COPPER 

Prassura  condition  :  UACUUM 

Nussalt  thaory  is  usad  for  Ho 

Cl  (basad  on  Patukhov-Popov )  *  3.0216 


Alpha 

(based 

1  on  Nussalt 

(Tdal >)  «  1 

.1247 

Enhancanant 

<q> 

•  1 

.549 

Enhancement 

<Oal-T> 

«  1 

.388 

Data 

Uu 

Uo 

Mo 

Op 

Tcf 

Ts 

t 

(n/s ) 

(W/m*2-K ) 

<U/m*2-K  > 

(W/n'2 ) 

<C> 

(C> 

1 

1.13 

1 .0195-^04 

2.309E+04 

9.S72E+04 

4.15 

48.82 

2 

1 .65 

1 .129E-»-04 

2.111E+04 

1 .076E+05 

5.10 

48.96 

3 

2.17 

1.269E+04 

2.209E+04 

1.168E+05 

5.29 

48.64 

4 

2.68 

1.309E+04 

2.O89E+04 

1.206E+05 

5.77 

48.81 

5 

3.20 

1 .3746+04 

2.094E+04 

1.263E+05 

6.03 

48.88 

6 

3.71 

1 .453E+04 

2.15OE+04 

1.217E+05 

5.66 

48.54 

7 

4.23 

1 .434E+04 

2.021E+04 

1.19ZE+0S 

5.90 

48.87 

8 

4.25 

1 . 334E+04 

1 .847E+04 

1 .71 1E+05 

9.27 

48.79 

9 

3.73 

1 .336E+04 

1.921E+04 

1 .61ZE+05 

8.39 

48.71 

Laast'squaras  Una  for  q  «  a*dalta-T'b 
a  ■  3.2541E+04 

b  ■  7.5000E-01 


NOTE:  09  data  points  wars  storad  in  file  UT023 
NOTE:  09  X-Y  pairs  ware  storad  in  data  fila 
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NOTE:  ProQf'art  :  ORPALL 

D*tP  taken  by  :  COBB 

This  enelytie  done  on  file  :  UTBSi 
This  enelysie  includes  end~fin  effect 
Themel  conductivity  *  39®. 8  (U/n.K) 

Inside  dianeter,  0i  >  12.7®  (nn) 

Outside  dieneter.  Oo  «  13.88  (nn) 

This  analysis  uses  the  QUARTZ  THERtlOtlETER  reedmos 
nodlfied  Petukhov-Popov  coefficient  •  2.588® 

Us  mo  HEATEX  insert  inside  tube 

Tube  Enhencenent  :  DEEP  FILLET  FINNED  TUBE 

Tube  neterial  :  COPPER 

Pressure  condition  :  UACUUA 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on 

Petukhov-Popov )  ■  3 

.®312 

Alpha 

(based 

on  Nusselt 

(Tdel))  ■  1 

.291® 

Enhancenent 

(q> 

• 

.862 

Enhancenent 

(Oel-T  ) 

«  1 

.594 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/8  > 

(U/n*2“K ) 

(U/n*2-K) 

(U/n*2) 

(C) 

(C 

1 

8.63 

7.685E<^®3 

2.547E+®4 

1 .647E+85 

6.47 

48.55 

2 

1 .15 

9.43lE+®3 

2.®4eE4>®4 

2.®35E<«-®5 

9.98 

48.72 

3 

1 .68 

1 .®76E+®4 

1  .986E4-®4 

2.274E+85 

1 1 .45 

48.54 

4 

2.19 

1 .177E+84 

1 .93®E4-e4 

1.88154^05 

9.75 

48.67 

S 

2.71 

1 -243E+84 

1 .9®8E4®4 

1 .998E48S 

18.43 

48.95 

6 

4.8® 

1  .S®1E<^®4 

2.®58E4-®4 

2.5®8E4>®5 

12.13 

48.58 

7 

4.27 

1 . 485E-«-®4 

2.1®7E+®4 

2.395E+85 

11.37 

48.51 

8 

3.75 

1  .4l8E<*-®4 

2.®53E<*-®4 

2.222E+85 

18.83 

48.98 

9 

3.22 

1  .41 1E+®4 

2.143E>®4 

2. 86254^85 

9.59 

48.54 

1® 

2.7® 

1  .326E4®4 

2.®99E-(-®4 

1.989E4-85 

9.09 

48.78 

11 

3.22 

1 .412E^®4 

2.147E+®4 

1.988E4-85 

9.26 

48.68 

12 

3.75 

1  .4S8E'^®4 

2.139E^®4 

2.238E^®5 

18.46 

48.51 

13 

4.27 

1  .479E+84 

2.®89E'*'®4 

2.233E4-85 

18.69 

48.58 

14 

4.79 

1 .512E>®4 

2.881E484 

2.3®6E’4®5 

11.08 

48.57 

15 

8.62 

7.733E+®3 

2.4®3Et®4 

1.335E4-85 

5.56 

48.91 

15 

1.15 

9.971E+®3 

2.238Et>®4 

1.88ZE4-85 

8.85 

48.38 

17 

1 .67 

1 .1®6E-»®4 

2.0S7E+®4 

2.877E4-85 

10.18 

48.48 

18 

2.2® 

1 . 1 8®E-^®4 

1  .975E+®4 

2.344E4-85 

1 1 .87 

48.72 

Least- 

squares  line  for  q 

•  a*delta-T‘ 

‘b 

a  •  3.7282E+04 

b  «  7.5®«8E-®1 


NOTE:  18  data  points  were  stored  in  file  UT831 
NOTE:  18  X-Y  pairs  were  stored  in  data  file 
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NOTE:  ProQran  name  :  ORPALL 

Oftla  taken  by  :  COBB 

Thie  enelyeie  done  on  file  :  VTB41 
This  enelyeie  includes  end*fin  effect 
Thernel  conductivity  ■  S5.3  (U/n.K> 

Inside  diameter ,  Oi  «  12.78  (mn) 

Outside  diameter,  Oo  •  13.88  <mm) 

This  analysis  uses  the  QUARTZ  THERnOtlETER  readinQs 

Modified  Petukhov-Popov  coefficient  >  2. 5808 

UsinQ  HEATEX  insert  inside  tube 

Tube  Enhancement  :  DEEP  FILLET  FINNED  TUBE 

Tube  material  :  98/18  CU/NI 

Pressure  condition  :  VACUUM 

Nusseit  theory  is  used  for  Ho 


Ci  ibased  on 

Petukhov-Popov )  ■  2 

.4826 

Alpha 

(based 

on  Nusseit 

(Tdel))  *  8 

.8597 

Enhancement 

(q) 

«  1 

.883 

Enhancement 

(Oel-T) 

«  1 

.861 

Date 

Vu 

Uo 

Ho 

Op 

Tcf 

$ 

(m/s ) 

(U/m*2-K ) 

(W/m'2-K  > 

(W/m*2> 

(C> 

1 

4.28 

9.181E+83 

1 .339E+84 

1.561E+05 

11.66 

2 

3.75 

9.238E4-83 

1.397E+84 

1.588E+65 

18.88 

3 

3.23 

8.981E<t-83 

1.383E+84 

1 .42tE+85 

18.28 

4 

2.71 

8.69eE<t-83 

1 .4l6E‘«-84 

1  .343E+85 

9.48 

5 

2.18 

8.262E-^83 

1 .424E<^84 

1.267E+85 

8.98 

6 

4.27 

9.272E+83 

1 .356E+84 

1 .5466+85 

11.48 

7 

3.75 

9.812E4-83 

1 .345E+84 

1.4816+85 

18.42 

8 

1.14 

7.«34E+C3 

1 .571E+84 

1 .8416+05 

6.62 

9 

1 .66 

7.751 E+83 

1.465E'^84 

1.158E+85 

7.98 

18 

1.14 

7.867E+83 

1.583E-^84 

1 .829E+85 

6.58 

1 1 

1  .66 

7.862Ef83 

1.582E-t-84 

1.1346+85 

7.55 

12 

2.18 

8.397E+C3 

1 .462E+e4 

1 .287E+85 

8.26 

13 

2.78 

8.726E+83 

1 .4226+84 

1 .255E+85 

8.83 

14 

3.22 

9.1 14E-^83 

1.429E+84 

1.296E+85 

9.87 

Least- 

squares  line  for  q 

*  a*delta-T' 

*b 

a  «  2.48I3Ei'84 

b  «  7.5888E-8*i 


NOTE:  14  data  points  were  stored  in  file  VTe4i 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 


Ts 

<C) 

48.64 

48.67 

48.84 

48.87 

49.81 

48.97 

48.61 

48.52 

48.61 

48.67 

48.46 

48.55 

48.64 

48.57 
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NOTE:  Progran  n«n«  :  DRPALL 

Date  tak«n  by  :  COBB 

Thik  anklyiift  done  on  file  :  VTB51 
Thkk  onolytli  includoi  ond^fin  cffoct 
Thornel  eonducllvlty  >  SS.3  (N/n.K) 

Inside  dieneter,  Di  ■  12.78  (nn) 

Outside  dieneter.  Do  «  14.38  (nn) 

This  anelysis  uses  the  QUARTZ  THERnOAETER  reedings 

Aodified  Petukhov-Popov  coefficient  ■  2.50M 

Using  HEATEX  insert  inside  tube 

Tube  Enhancenent  :  SHALLOW  FILLET  FINNED  TUBE 

Tube  naterial  :  98/ IB  CU/NI 

Pressure  condition  :  UACUUA 

Nusseit  theory  is  used  for  Ho 


Cl  <based  on 

Petukhov-Popov )  ■  2 

.8481 

Alpha 

(based 

on  Nusseit 

(Tdell)  -  8 

.8324 

Enhancenent 

<q) 

»  1 

.037 

Enhancenent 

<0el-T) 

«  1 

.828 

Date 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s ) 

<U/n*2-K ) 

<U/n*2-K) 

(W/n*2> 

<C) 

<C 

t 

4.25 

8.833E-«‘83 

1 .3805484 

1.861E405 

8.16 

49.83 

2 

3.73 

9.831E483 

1 .385E484 

1.818E485 

7.29 

48.63 

3 

3.23 

8.737E+83 

1.384E404 

1.2985405 

9.32 

48.51 

■4 

L  *  t  ^ 

8.156E483 

1 .3225484 

1 .455E485 

11.81 

48.74 

5 

2.28 

7.748E+83 

1 .3175484 

1.474E485 

11.19 

48.76 

6 

1  .88 

7.169E483 

1 .3I8E484 

1.465E405 

11.18 

48.68 

7 

1.15 

6.451E483 

1 .337E484 

1.3565485 

18.15 

48.96 

8 

1.15 

6.337E483 

1 .2915484 

1.3585405 

18.46 

49.88 

9 

1 .68 

7.843E483 

1.278E484 

1.473E485 

11.68 

48.85 

18 

2.28 

7.568E483 

1 .2735484 

I.552E405 

12.26 

48.81 

1 1 

2.72 

7.944E483 

1 .277E484 

1 .6235405 

12.71 

48.88 

12 

3.25 

8.297E+83 

1 .2935484 

1.649E405 

12.76 

48.85 

13 

3.77 

8.372E483 

1 .2575484 

1 .6445405 

13.88 

49.15 

14 

4.29 

8.511E483 

1 .2495484 

1 .661E405 

13.29 

49.87 

Least- 

squares  line  for  q 

■  a«delta-T 

*b 

a  «  2.3E83E4>e4 

b  »  7.5808E-81 


NOTE:  14  data  points  were  stored  in  file  UT051 
NOTE:  14  x-Y  pairs  were  stored  in  date  file 
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NOTE:  ProQran  n«nc  :  ORPALL 

Data  ttkftn  by  :  COBB 

Thift  analytlft  done  on  filo  :  VTB61 
Thii  onalykit  includok  ond-fin  offoct 
Thornol  conductivity  •  S5.3  <W/iii.K} 

Inoide  dlonetor,  0l  •  12. 7B  (nn) 

Outkido  dianotor.  Do  ■  13. BB  <nn) 

Thlk  anklykik  Ukkk  th«  QUARTZ  THERtlONETER  rokdlnQk 

Hodifiod  Pktukhov-Popov  coofficiont  ■  2.5BM 

UkinQ  HEATEX  inkort  inkldc  tube 

Tube  Enhencenent  :  RECTANGULAR  FINNED  TUBE 

Tube  neteriel  :  BG/1G  CU/NI 

Prekkurc  condition  :  UACUUN 

Nukkelt  theory  ik  uked  for  Ho 


Cl  (baaed  on 

Petukhov-Popov )  ■  2 

.3262 

Alpha 

(baaed 

on  Nukkelt 

(TdeDl  •  1 

.0725 

Enhancanent 

<q) 

•  1 

.454 

Enhencenent 

(Oel-T) 

«  1 

.324 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

( n/k  / 

(U/n'2-K) 

(U/n*2-K  ) 

(W/n*2  > 

(C> 

1 

0.63 

5.134E+03 

1 .704E+04 

1 .179E+05 

6.92 

2 

1.16 

6.9S2E<^03 

1.799E+04 

1.6695405 

9.28 

3 

1 .59 

7.922E+03 

1 .720E+04 

1.900E40S 

11.04 

4 

2.21 

8.478E-«-03 

1 .633E4-04 

2.070E40S 

12.68 

5 

2.74 

9.022E<«-03 

1 .626E’i-64 

2.187E40S 

13.45 

6 

3.27 

9.282E<»-03 

1 .571E+04 

2.264E405 

14.42 

7 

3.79 

9.635E403 

1.572E+04 

2.293E405 

14.59 

8 

4.32 

9.778E+03 

1 .534Ei>04 

2.299E405 

14.99 

9 

4.84 

O.OlSE’fOS 

1 .510E’«'04 

2.309E405 

15.30 

10 

4.84 

9.87SE+03 

I.SOeE-^04 

2.307E+05 

15.38 

11 

0.63 

S.810E403 

2.491E<^04 

I.112E405 

4.46 

12 

1 . 15 

7.270E+03 

1 .914E+04 

1.378E+05 

7.20 

13 

1 .67 

8.2266^03 

1 .793E+04 

1.562E405 

8.71 

14 

1 .67 

8.098E4-03 

1 .732E+04 

1 .555E405 

8.97 

Least- 

aquaree  line  for  q 

■  a*delta-T 

'b 

e  •  3.e792E+04 

b  «  7.5Ge8E-G1 


NOTE:  14  date  pointk  were  ktored  in  file  UTB61 
NOTE:  14  X~Y  pairk  were  ktored  in  data  file 


Tk 

(C> 

48.75 

49.06 

48.64 

48.96 

48.69 

49.09 

48.60 

48.78 

48.93 

49.11 

48.88 

48.62 

48.53 

48.83 
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NOTE:  Progran  nanc  :  ORPALL 

Data  takari  by  :  COBB 

Thia  analyaia  dona  on  fila  :  VTBS3 
Thik  analyaia  xncludaa  and*fin  affact 
Tharnal  conductivity  ■  55. 3  <U/n.K> 

Inaida  dianatar.  Oi  *  12.7B  (nn/ 

Outaide  dianatar.  Do  ■  <3.88  <mi> 

This  analysis  usas  tha  QUARTZ  THERnONETER  raadings 

Nodifiad  Patulihov-Popov  coafficiant  ■  2.5BB8 

Using  HEATEX  insart  insida  tuba 

Tube  Enhancanant  :  RECTANGULAR  FINNED  TUBE 

Tuba  natarial  :  BG/IQ  CU/NI 

Pressure  condition  :  UACUUN 

Nussalt  theory  is  used  for  Ho 


Cl  (based  on 

Petulihov-Popov )  ■  2 

.4146 

Alpha 

(based 

on  Nusselt 

(TdeD)  *  1 

.0411 

Enhancenent 

(q) 

•  1 

.397 

Enhancenent 

(Oel-T) 

•  1 

.285 

Cata 

Uw 

Uo 

Ho 

Qp 

Tcf 

Ts 

t 

(K/S  ) 

(U/n“2-K  5 

(U/«*2-K  ) 

(U/f.*2  > 

(C) 

(C 

1 

4.32 

3.577E■^C3 

1 .4656-^84 

2.270E■^05 

15.49 

48.78 

4 

3.73 

9.38lE<^e3 

1 .48lE-*-04 

2.232E■^05 

15.07 

48.76 

3 

1 .68 

7.859E+03 

1 .6256-^04 

1 .827E-^0S 

11.25 

48.62 

4 

1.16 

6.965E<»-e3 

1 .710E+O4 

1.61564-05 

9.45 

48.85 

5 

3.27 

9.23eE-*-e3 

1 .526E-»e4 

2.19954-05 

14.41 

48.80 

6 

2.21 

8.438E403 

1  .570E-*-04 

1.979E4-0S 

12.61 

48.65 

7 

2.74 

8.32«E-»-C3 

1 .5546-^04 

2.10364-05 

13.53 

48.65 

8 

2.74 

8.932E+C3 

1  .5586-^04 

2.102E4-05 

13.50 

48.64 

3 

2.21 

8.4e8E^e3 

1 .5596^04 

1.377E4-05 

12.68 

48.72 

<0 

3.27 

3.228Et-e3 

1  .S25E1-04 

2.184E4-05 

14.32 

48.70 

<  1 

1 .68 

7.797E•^^3 

1 .53364-04 

1.831E4-05 

11.45 

48.82 

12 

3.79 

9.431E+83 

1 .434E-i-e4 

2.227E4-05 

14.91 

48.56 

<3 

1.16 

7.004E'*’03 

1 .733E-*-04 

1.63164-05 

9.41 

48.96 

<4 

4.32 

3.6846-^03 

1 .4916-^04 

2.283E4-05 

15.32 

48.68 

Least- 

■squares  line  for  q 

«  a*d6lta-T 

"b 

a  «  2.96<7E+«4 

b  «  7.5BB8E-B1 


NOTE:  <4  data  points  were  stored  in  file  UTOGS 
NOTE:  <4  X-Y  pairs  were  stored  in  data  file 
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NOTE:  Progran  ntPte  :  DRPALL 

Oats  takan  by  :  COBB 

Thii  analyaia  dona  on  fila  :  VTB71 
Tbit  analyaia  includaa  and-fin  affact 
Tharnal  conductivity  *  14. 3  (y/n.K) 

Inal da  dianatar,  Ol  *  t2.7B  (nn) 

Outaida  dianatar.  Do  «  13.B8  inn) 

Thia  analyaia  uaaa  tha  QUARTZ  THERNOHETER  raadinga 

Hodlfiad  PatukbovPopov  coafflciant  *  2.5BBB 

Uaing  HEATEX  inaart  inaida  tuba 

Tuba  Enhancanant  :  DEEP  FILLET  FINNED  TUBE 

Tuba  natarlal  :  STAINLESS>STEEL 

Praaaura  condition  :  UACUUfl 

Nuaaalt  tbaory  la  uaad  for  Ho 

Cl  <baaad  on  Patukhov-Popov >  >  2.1  BBS 


Alpha 

<baaad 

on  Nuaaalt 

<Tdal))«  0.7827 

Enhancanant 

<q) 

• 

.355 

Enhancanant 

<Dal-T) 

« 

.366 

Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

<n/8 ) 

<W/n'2-K ) 

<U/n*2»K> 

<W/n*2 ) 

<C) 

<C) 

1 

4.32 

6. 30364-63 

1.157E404 

1 .5066405 

13.02 

48.83 

2 

t.lE 

4.8S8E4-03 

1 .3376404 

1.1336405 

8.48 

48.60 

3 

3.73 

6. 23364-03 

1.1336404 

1.5056405 

12.56 

48.73 

4 

1.68 

5.35564-03 

1 .2486404 

1.2626405 

10.11 

48.71 

5 

3.27 

6.15464-03 

1.2106404 

1.4746405 

12.18 

48.63 

6 

2.21 

5.6626403 

1 .2036404 

1 .3476405 

11.14 

48.63 

7 

2.74 

5.337E403 

1 .2086404 

1.4226405 

11.77 

-'8.70 

8 

2.74 

5.328E403 

1 .2046404 

1.4256405 

11.83 

48.76 

3 

2.21 

5.716E403 

1 .2346404 

1.3706405 

11.10 

48.74 

ie 

3.27 

6.1626403 

.1 .2136404 

1.4866405 

12.25 

48.72 

11 

1 .68 

5.3336403 

1 .2416404 

1.2736405 

10.26 

48.74 

12 

3.73 

6.2566403 

1.1866404 

1.5236405 

12.84 

48.86 

13 

1 . 16 

4.860E4O3 

1 .3286404 

1.1556405 

8.63 

48.73 

14 

4.32 

6.3186403 

1.1616404 

1.5136405 

13.08 

48.67 

Laaat-aquBras  lina  for  q  *  a^dalta-T'b 
a  «  2.2412E+B4 

b  «  7.50BBE-B1 


NOTE:  14  data  points  uara  storad  in  fila  UTC71 
NOTE:  14  X-Y  pairs  uara  storad  in  data  file 
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NOTE:  ProQran  nanc  :  ORPALL 

Data  takari  by  •  COBB 

This  analyaia  dona  on  tile  :  WTBBJ 
This  analysis  includas  and~fin  affact 
Tharnal  conductivity  •  14.3  (U/n.K) 

Insida  dianatar,  0l  ■  12.78  (n«> 

Outsida  dianatar,  Do  ■  14.58  (nn) 

This  analysis  usas  tha  QUARTZ  THERAOflETER  paadings 

Modi f lad  Patukhov-Popov  coafficiant  ■  2.S808 

Using  HEATEX  insart  ins Ida  tuba 

Tuba  Enhancanant  :  SHALLOW  FILLET  FINNED  TUBE 

Tuba  natarial  '•  STAINLESS-STEEL 

Prassura  condition  :  VACUUM 

Nussalt  thaory  is  usad  for  Ho 


Cl  (basad  on 

Patukhov-Popov }  *  2 

.1523 

Alpha 

< basad 

on  Nussalt 

(Tdal ))  «  8 

.7957 

Enhancanant 

(q  > 

m 

.977 

Enhancanant 

<Dal-T) 

« 

.982 

Data 

Uw 

Uo 

Ho 

Op 

Tcf 

t 

<n/s ) 

<U/n*2-K  > 

<U/n*2-K) 

<W/n*2> 

<C) 

1 

4.32 

5.E42E<^83 

1 .174E+84 

1 .387E+85 

11.81 

2 

1.16 

4.419E+83 

1 .321E+84 

1 .8E3E4-85 

8.84 

3 

3.88 

5.653E-«-83 

1 .229E+84 

1.394E-t-85 

11.34 

4 

1 .69 

4.858E<^83 

1.269E+84 

1 . 1 88E<«-85 

9.38 

5 

3.27 

5.564E+83 

1 .254E+04 

1 .3686-^85 

18.91 

6 

2.21 

5.191E+83 

1 .277E+84 

1.275E+85 

9.98 

t 

2.74 

5.431E+83 

1 .279E+84 

1.348E-^85 

18.48 

8 

2.74 

5. 4246^83 

1 .275E+C4 

1.339E-^85 

18.51 

9 

2.74 

5.454E-^83 

1 .291E+84 

1.349E<i'85 

18.45 

18 

4.32 

5.694E+83 

1 . 1 96Et-84 

1.389E-^85 

11.61 

1 1 

3.86 

5.E49E-i>83 

1 .226E+84 

1.378E+85 

11.18 

12 

5.688E-t-83 

1 .274E+04 

1 .356E+05 

18.64 

13 

2.21 

5.237E+83 

1 .3e3E+84 

1.278E+85 

9.75 

14 

2.21 

5.214E+83 

1 .289E+84 

1.268E4-85 

9.84 

15 

1 .69 

4.951E-^83 

1 .339E+84 

1.195E'«’85 

8.92 

16 

1.16 

4.495E483 

1.392E+84 

1.8885-^85 

7.76 

Laast' 

-squares  line  for  c 

1  *  a*dalta-T 

*b 

a  «  2.2E9eE<«-e4 

b  «  7.S088E-81 


NOTE:  IB  data  points  wars  storad  in  fila  UTOBl 
NOTE:  16  X-Y  pairs  wars  storad  in  data  fila 


Ts 

<C) 

48.79 

48.74 

48.71 

48.72 

48.65 
48.76 
48.78 
48.78 
48.83 

48.72 

48.68 

48.69 

48.72 
48.74 

48.66 

48.73 
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NOTE:  Proof“«»  nane  ;  ORPftLL 

Data  takan  by  •  COBB 

This  analysis  dona  on  fiia  ;  VTBBl 
This  analysis  includas  and-fin  affact 
Tharnal  conductivity  “  14.3  (U/n.K) 

Insida  dianatar,  Di  ■  12.7®  <iw) 

Outsida  dianatar.  Do  ■  13. B8  (nn) 

This  analysis  usas  the  OOhRTZ  THERhOHETER  raadinQs 

Modi f lad  Patukhov-Popov  coafficiant  «  2.500* 

UsinQ  HEATEX  insart  insida  tuba 

Tuba  Enhancawant  :  RECTANGULAR  FINNED  TUBE 

Tuba  natarial  :  STAINLESS-STEEL 

PrasBura  condition  :  UACUUfI 

Nussalt  thaory  is  used  for  Ho 


Ci  (based  on  Patukhov-Popov )  ■  1.S382 
Alpha  (based  on  Nussalt  (Tdall)  *  0.6872 
Enhancanant  (q)  ■  *803 
Enhancanant  <Dal-T)  ■  .848 


Data 

Uw 

Uo 

t 

(n/s  ) 

<W/n*2-K 1 

1 

4.27 

6.l73E-*-e3 

2 

3. 75 

6.l63E<t>03 

3 

3.23 

6.1616-^03 

4 

2.71 

5.894E-1-83 

S 

2.19 

5.6656-^03 

6 

1 .66 

5.332E+03 

7 

1.14 

4.8326-^03 

8 

1.14 

4.843E-»-03 

Ho 

Op 

Tcf 

Ts 

(U/n*2-K ) 

<U/n‘2 ) 

(C) 

(C 

1 .1176-^04 

9.392E•^64 

8.41 

48.88 

1 .1616-^84 

9.927E+04 

8.55 

43.02 

1 .224E-*-04 

1.067E+O5 

8.22 

48.70 

1 .2C3£->04 

9.62SE-*-04 

8.00 

48.83 

1 .224E+04 

8.919E-«-04 

7.29 

48.67 

1.251E■^04 

8.122E-^04 

6.49 

48.72 

1 .308E-»'04 

7.1 16E-»04 

5.44 

48.72 

1 .32CE-t-04 

7.083E-f04 

5.37 

48.72 

Least-squares  line  for  q  ■  a*dalta-T*b 
a«  1.93S3E4e4 
b  «  7.S000E-01 


NOTE:  08  data  points  ware  stored  in  file  VT031 
NOTE:  08  X-Y  pairs  were  stored  in  data  file 
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NOTE:  ProQraR  n«ne  :  DRPALL 

D«t«  taker,  by  :  COBB 

TMa  analysia  dona  on  file  :  VTe93 
This  analyaia  includes  end-fin  effect 
Thernal  conductivity  •  14.3  <U/n.K) 

Inside  diameter .  01  ■  1Z.7B  (mm) 

Outside  diameter.  Oo  *  15.88  (mm) 

This  analysis  uses  the  QUARTZ  THERfiOtlETER  readmos 

nodified  Petukhov-Popov  coefficient  «  2.5008 

Using  HEATEX  insert  inside  tube 

Tube  Enhancement  :  RECTANGULAR  PINNED  TUBE 

Tube  material  :  STAINLESS-STEEL 

Pressure  condition  :  VACUUM 

Nusselt  theory  is  used  for  Ho 

Cl  (based  on  Petukhov-Popov )  *  1.S3G5 


Alpha 

(based 

on  Nusselt 

(Tdel ) )  *  0 

.7823 

Enhancement 

(q) 

S 

.955 

Enhancement 

(Del-T) 

m 

.966 

Data 

Vw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(m/s ) 

(U/m'2-K  ) 

(W/m^Z-K  ) 

(W/m*2 ) 

(C) 

(C> 

\ 

4.32 

B.220E+03 

1 .162E+04 

1.493E+05 

12.85 

48.79 

2 

1 .15 

4.754E+03 

1 .3S2E+04 

1 .0706-^05 

7.92 

48.67 

3 

3.79 

E.2ElE-»-03 

1 .224E+04 

1.432E+05 

1 1  .70 

48.67 

4 

1  .G8 

S.325E+03 

1 .307E+04 

).170Et-05 

8.96 

48.71 

5 

3.26 

6.109E+03 

1 .231E+04 

1 .347E+05 

10.94 

48.56 

6 

2.20 

5.671E+03 

1 .2665^04 

1.230E+05 

9.71 

48.71 

7 

2.73 

5.985E+03 

1 .273E+04 

1 .291E+05 

10.14 

48.60 

8 

2.73 

5.952E+03 

1 .257E+04 

1.291E+05 

10.26 

48.83 

Least-SQuares  line  for  q  ■  a^delte-T'b 
a  •  2.2485E+04 

b  »  7.5000E-01 


NOTE:  08  data  points  were  stored  in  file  VTB93 
NOTE:  08  X-Y  pairs  were  stored  in  data  file 
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NOTE:  ProQran  nane  :  DRPALL 

Data  takeri  by  :  COBB 

TMa  analyaia  dona  ori  fila  :  ^TC94 
This  analyaia  includaB  and-fin  affacl 
Tharnal  conductivity  •  14.3  <U/n.K) 

Inside  dianatar,  Dl  •  12.78 

Outside  dianeter.  Do  «  13.88  <An> 

This  analysis  uses  the  QUARTZ  THERMOMETER  raadinQs 

Modified  Petukhov-Popov  coefficient  •  2.5888 

Us  mo  HEATEX  insert  inside  tube 

Tube  Enhancenant  :  RECTANGULAR  FINNED  TUBE 

Tube  material  s  STAINLESS-STEEL 

Pressure  condition  :  UACUUM 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on 

Petukhov-Popov )  ■  1 

.9238 

Alpha 

(based 

on  Nusselt 

(TdeD)  •  8 

.8485 

Enhancenant 

(q ) 

«  1 

.884 

Enhancenant 

(Del-T ) 

»  1 

.847 

Data 

Uui 

Uo 

Ho 

Qp 

Tcf 

t 

(n/s ) 

(U/n''2-K  ) 

(W/n-Z-K  > 

(W/n^Z  > 

(C) 

1 

4.33 

6 . 488E-)-e3 

1 .237E-J-84 

1 .619E■^85 

13.89 

2 

1  . 18 

4.817E-*-83 

1 .454E-^84 

1 .  l'3SE+85 

8.24 

3 

3.88 

6.387E-^83 

1 .  B36E-^85 

12.58 

4 

1  .89 

5.484E'«-83 

1.481  E-«-84 

1 .356E-t-85 

9.68 

5 

3.27 

e.286E-t-e3 

1  .338E-(-84 

1 .614E-*-85 

12.14 

S 

2.22 

5.893E■^83 

1  .3138-^84 

1 .4525-^85 

11.86 

7 

2.75 

6.8588-^83 

1 .334E-*-84 

1  .553E-^85 

1 1  .64 

8 

2.75 

6.188E-t-83 

1.3628*84 

1 .5638*85 

11.47 

9 

•>  ^  n 

^ 

5.679E+83 

1 .386E*-84 

1 . 4488-^85 

1 1  .83 

18 

3.27 

6.1998-^83 

1 .232E-t-84 

1 .5888*85 

1  ^ 

1  4  • 

1 1 

1  .89 

5.3378-^83 

1.357E'*-84 

1 .341E*85 

9.88 

•  ^ 

1  ^ 

3.88 

6.358E-*-83 

1  .275E-I-84 

1 .6488*85 

12.88 

1 3 

1 .18 

4.883E-»-83 

1 .4498-^84 

1 .214E*85 

8.38 

14 

4.33 

6.476E-^e3 

1  .264E-»’84 

1 .6655*85 

13.17 

Least- 

'Squares  line  for  q  ■  a*delte-T 

‘b 

a  « 

2.432 

5E-^84 

b  * 

7.5888E-81 

NOTE: 

14  data  points  were  stored  in 

file  VT894 

NOTE: 

14  X-Y 

'  pairs  were 

stored  in  da 

ta  file 

Ts 

<C) 

48.83 

48.82 
48.91 

48.83 
48.93 

48.87 
48.93 

48.88 
48.78 
48.78 

48.83 
49.81 

49.89 
49.81 
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NOTE:  Proo^aw  name  :  DRPALL 

Data  taken  by  :  COBB 

Tnie  analyais  done  on  file  :  VT1B1 
Tbie  analyeii  includes  end'fin  effect 
Tbernal  conductivity  »  231.8  (U/k.K) 

Inside  dianeter,  Oi  ■  12.7e  (nn> 

Outside  dianeter .  Oo  «  13.88  (nn) 

This  analysis  uses  the  QUARTZ  THERHOnETER  readmes 

Modified  Petukhov-Popov  coefficient  «  2.S888 

Usme  HEATEX  insert  inside  tube 

Tube  Enhancenent  :  RECTAN8ULAR  FINNEC  TUBE 

Tube  naterial  :  ALUMINUM 

Pressure  condition  :  UACUUM 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on 

Petukhov-Popov )  *  t 

.9610 

Alpha 

(based 

on  Nusselt 

(Tdel  )>  «  1 

.3090 

Enhancenent 

(q1 

«  1 

.896 

Enhancenent 

(Oel-T) 

«  1 

.616 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(n/s  > 

(U/n“2-K) 

(U/n'‘2-K) 

(W/n*2  > 

(C) 

1 

4.32 

1 .173E+04 

1 .898E-«-04 

2.739E-t-05 

14.43 

n 

A 

3.79 

1 .2015^04 

2.1l3E->04 

2.800E-t-05 

13.25 

3 

3.23 

1 .207E+04 

2.2S4E-t-04 

2.010E+05 

8.91 

4 

2.72 

1.1056-^04 

2.171E+04 

2.0196-^05 

9.30 

5 

2.19 

1  .0316-^04 

2.231E-*-04 

1.8 145^05 

8.13 

6 

« 

«  •  O  f 

9.310E•^83 

2.305E-I-04 

1.5836-^05 

6.87 

t 

1.15 

8.0296-^03 

2.540E-I-04 

1 .3346-^05 

5.25 

8 

1 .14 

8.1146-^03 

2.6246-^04 

1.332E-^05 

5.08 

9 

1  .67 

9.4086-^03 

2.34gE-*-04 

1 .5346-^05 

6.53 

10 

2.19 

1 .048E-«-04 

2.284E+04 

1 .709E-^05 

7.48 

1 1 

^  •  7  1 

1.11 6E-t-04 

2.183E-«-84 

1  .7986+05 

8.24 

12 

3.23 

1 .197E+04 

2.2046^04 

1. 8926+05 

8.59 

13 

3.75 

1.232E+04 

2.120E-«-04 

1. 9226+05 

9.07 

14 

4.27 

1.2776-^04 

2.1036-^04 

1.957E+05 

9.31 

Least-squares  line  for  q  «  a«delta-T*b 
a  *  3.7884E+04 

b  *  7.S0O8E-C1 


NOTE:  14  data  points  were  stored  in  file  VTIOI 
NOTE:  14  X-Y  pairs  were  stored  in  date  file 


Ts 

<C) 

48.95 

48.76 

48.45 

48.85 

48.76 

48.81 

48.93 

48.81 

48.75 

48.78 

48.78 

48.66 

48.85 

48.86 
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NOTE:  Progran  name  :  ORPALL 

Data  takan  by  :  COBB 

This  analysis  dona  on  fila  :  UTtBS 
This  analysis  includas  and'fin  affact 
Tharnal  conductivity  «  231.8  <U/n.K) 

Ins  Ida  dianatar.  Oi  «  12.70  (nn) 

Outside  dianatar,  Oo  «  13.88  (nn> 

This  analysis  usas  the  QUARTZ  THERflOtlETER  raadings 

llodiflad  Patukhov-Popov  coefficient  *  2.S886 

Using  HEATEX  insert  inside  tube 

Tube  Enhancenent  :  RECTANGULAR  FINNED  TUBE 

Tube  naterial  :  ALUfllNUn 

Pressure  condition  :  VACUUM 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on 

Petukhov-Popov )  •  2 

.8284 

Alpha 

(based 

on  Nusselt 

(Tdel))  •  1 

.2998 

Enhancenent 

(q ) 

»  1 

.877 

Enhancenent 

(Del-T> 

«  1 

.684 

Data 

Uw 

Uo 

Ho 

Op 

Tcf 

Ts 

t 

(n/s ) 

(U/n‘2-K ) 

(U/n*2-K  > 

(U/n'‘2) 

(C> 

(C 

1 

4.29 

1.256E<^a4 

2.834E+84 

2.2736+85 

11.18 

48.74 

2 

3.76 

1.238E-i>e4 

2.111E+84 

2.1476+85 

18.17 

48.71 

3 

3.23 

1.1836+84 

2.1186+84 

2.8256+85 

9.57 

49.83 

4 

2.71 

1 .124E+«4 

2.158E+84 

1.8886+85 

8.75 

48.87 

S 

4,27 

1.2886+84 

2.896E+84 

2.8876+85 

9.58 

48.59 

6 

1.14 

8.874E+83 

2.389E+84 

1.2446+85 

5.21 

48.64 

7 

3.75 

1 .2426+84 

2.1126+84 

2.8426+85 

9.67 

48.74 

8 

1.15 

8.219E+83 

2.572E+84 

1 .3716+85 

5.33 

48.58 

S 

3.24 

1 .1696+84 

2. 8866+84 

2.1346+85 

18.23 

48.98 

ie 

1  .67 

9.493E+83 

2.342E+84 

1 .7186+85 

7.33 

48.61 

11 

2.19 

1  .8436+84 

2. 2286+84 

1.9826+85 

8.57 

48.53 

12 

2.72 

1 .1896+84 

2.1326+84 

2.8746+85 

9.73 

48.63 

13 

1 .67 

9.426E+83 

2.3166+84 

1.7986+85 

r  •  r  w 

46.94 

14 

2.2e 

1 .8236+84 

2.1466+84 

1.9686+85 

9.17 

48.68 

Least-squares  line  for  q  ■  e*delte-T'‘b 
a  «  3.7SE2E-«-84 

b  «  7.5ae®E-ei 


NOTE:  14  data  points  were  stored  in  file  VTICS 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 
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NOTE*.  PrograM  rtAMs  :  ORPALL 

Data  taktn  by  :  COBB 

Thift  Analykik  don«  on  file  :  UTtll 
This  analysii  includok  ond-fln  offoct 
Thornal  conductivity  *  231.8  (U/n.K) 

Ink  Ido  dlonotor,  0l  «  12.78  (nn> 

Outkide  dionoter,  Do  «  13.88  <nn> 

Thlk  analyklk  ukCk  the  QUARTZ  THERtlONETER  roodlngk 

Modifiod  Potukhov-Popov  coofficiont  *  2.5888 

Uking  HEATEX  inkort  inside  tube 

Tube  Enhencenent  :  DEEP  FILLET  FINNED  TUBE 

Tube  Materiel  :  ALUMINUM 

Preskure  condition  :  UACUUM 

Nukkelt  theory  is  used  for  Ho 


Cl  Ibesed  on  PetukhovPopov )  «  2.3848 

Alpha  ibesed  on  Nusselt  <Tdel)>  «  1.1753 

Enhencenent  (q)  «  1.E43 

Enhancement  <Del-T)  »  1.451 


Data 

Uu 

Uo 

Ho 

Qp 

Tcf 

Ts 

t 

(n/k ) 

lU/m'Z-K ) 

<W/r.'2-K ) 

(U/n-Z  > 

<C> 

<C) 

1 

4.31 

1 .891E+84 

1.S73E+84 

2.471E4-05 

15.71 

48.57 

2 

1.15 

7.862E+03 

1 .977E+84 

1 .73554-85 

8.78 

48.68 

3 

3.79 

1 .127E+04 

1 .733E+04 

2.560E4-05 

14.78 

48.66 

4 

1 .68 

8.gi8E+83 

1 .830E+84 

1.98354-05 

18.84 

48.64 

5 

3.25 

1 .888E-^84 

1 .747E+84 

2.4645-^05 

14.18 

48.77 

6 

2.21 

9.734E+83 

1 .783E+04 

2.179E4-05 

•  •»  **•» 
t  ^ 

48.74 

7 

2.73 

1 .051E+84 

1 .88054-84 

2.34754-85 

13.84 

48.64 

8 

2.73 

1 .846E<*-84 

1 .787E+84 

2.346E4-05 

13.13 

48.75 

9 

2.21 

9.788E+83 

1 .80054-04 

2.183E4-05 

12.13 

48.75 

18 

3.26 

1 .878E+84 

1 .72054-04 

2.425E4-85 

14.89 

48.76 

11 

1  .68 

8.988E-t-83 

1  .852E4-84 

1.98554^05 

18.72 

48.74 

12 

3.79 

1.115E't'e4 

1.703E4-84 

2.58254-05 

14.59 

48.71 

13 

1 .15 

7.881E+83 

1 .98154-84 

1 .732E4-85 

8.75 

48.93 

14 

4.31 

1 .143E+04 

1 .68154-84 

2.550E4-05 

15.17 

48.78 

Least 

-squarek 

line  for  q 

»  a*delta-T' 

‘b 

a  »  3.3489E+84 

b  «  7.50085-81 


NOTE:  14  date  points  were  stored  in  file  UT111 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 
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NOTE:  ProQran  nan«  :  ORPALL 

0*t«  taktn  by  ’•  COBB 

Thx»  •n«lyti»  dont  on  fil*  :  UT131 
Thik  knalykik  includkk  ond-fin  offoct 
Thorntl  conductivity  *  231.8  (U/n.K) 

Intidt  dionotor,  Ol  «  12.78  (nn) 

Outside  dieneter.  Oo  •  14.38  (nn) 

Thik  enelysls  uses  the  QUARTZ  THERtlOnETER  reedingk 

Modified  Petukhov-Popov  coefficient  ■  2.5888 

Using  HEATEX  insert  inside  tube 

Tube  Enhencenent  :  SHALLOW  FILLET  FINNED  TUBE 

Tube  neteriel  :  ALUMINUM 

Pressure  condition  :  VACUUM 

Nusselt  theory  is  used  for  Ho 


Cl  (based  on 

Petukhov-Popov )  •  2 

.2486 

Alpha 

(based 

on  Nusselt 

(Tdel))  >  1 

.0525 

Enhancement 

<q) 

»  1 

.418 

Enhancement 

(Del-T) 

»  1 

.299 

Data 

Uu 

Uo 

Ho 

Op 

Tcf 

t 

(n/s ) 

(U/m''2-K ) 

(U/m*2-K) 

(W/m*2) 

(C) 

1 

4.31 

1 .829E<t-84 

1 .582E-^84 

2.192E+85 

14.59 

2 

1.15 

7.262E+83 

1 .788E+84 

1.519E-«-05 

8.49 

3 

3.78 

1 .81 1E<^84 

1.534E4-04 

2. 1956+05 

14.30 

4 

1.68 

8.122E+83 

1 .638E<i-84 

1.738E+05 

10.66 

5 

3.26 

9.769E4>83 

1 .547E+84 

2.138E+05 

13.82 

6 

2.21 

8.828Ei-83 

1 .5885^84 

1.910E+05 

12.02 

7 

2.73 

9.386E<^83 

1 .5526^84 

2.045E+05 

13.17 

8 

2.73 

9.313E+83 

1 .554E<t'84 

2.041E+05 

13.13 

9 

2.21 

8.811E’«-83 

1.587E+84 

1.928E+05 

12.15 

18 

3.26 

9.756E+83 

1 .546E-»^84 

2.140E+05 

13.85 

1 1 

1 .68 

8.147E+83 

1  .644E-^84 

1.787E+05 

18.87 

12 

3.78 

1 .882E-^84 

1 .5166^84 

2. 2 136+05 

14.59 

13 

1.15 

7.188E+83 

1 .752E+84 

1 .5646+05 

8.92 

14 

4.31 

1 .823Et-84 

1 .493E+e4 

2.243E+05 

15.02 

Least- 

SQuares  line  for  q 

*  a«delta-T 

'b 

a  «  ?  .  '?739E+84 

b  *  ?.£?'08E-81 


NOTE:  14  data  points  were  stored  in  file  UT131 
NOTE:  14  X-Y  pairs  were  stored  in  data  file 


Ts 

<C> 

48.66 
48.72 
48.79 

48.67 

48.74 
48.66 

48.75 
48.78 
48.72 
48.59 
48.89 

48.68 
48.93 
48.52 
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AVPiMDzi  I.  mcisnmRT  AnLiszs 


When  measuring  physical  quantity,  the  actual  value  is 
unKno%m.  There  will  always  be  a  difference  between  the 
measured  value  of  the  quantity  and  the  actual  value.  The 
magnitude  of  the  difference  depends  on  the  accuracy  of  the 
measuring  device  and  the  level  of  experience  of  the  operator 
of  the  device.  Normally  the  error  of  measurement  of  a  single 
calculation  is  rather  small,  however  the  error  may  grow  in 
magnitude  when  combined  with  other  meastired  quantities  in  a 
given  calculation.  The  estimation  of  the  difference  between 
the  actual  and  the  calculated  or  measured  value  is  kno%m  as 
the  uncertainty  of  the  obtained  value. 

The  actual  uncertainty  is  similar  to  the  actual  value,  if 
you  know  one  you  can  determine  the  other.  Kline  and  NcClintok 
[Ref.  38]  developed  a  method  to  estimate  the  uncertainty  in 
the  obtained  value.  The  method  states  for  a  quantity  in  some 
obtained  value  R,  which  is  a  function  of  several  measured 
quantities  (R  «  R(x^,X2,X3, . . .  ,x„) } ,  the  uncertainty  in  R  is 
given  by  the  following  relationship: 


(E.l) 
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wh«re: 


W|i  «  the  uncertainty  of  the  desired  dependent  variable 
x^,X2«...x„  «  the  eeasured  independent  variables 

. .  .W^  «  the  uncertainties  in  the  eeasured  variables. 
A  complete  description  of  the  uncertainty  analysis  is 
given  by  Georgiadis  [Ref.  39].  The  uncertainty  program, 
UNCERTCOBB,  was  a  revision  of  Nitrou's  [Ref.  14]  uncertainty 
analysis  program.  The  program  is  listed  in  this  Appendix 
along  with  random  data  point  analysis. 
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1800!  file  NAnE  :  UNCERTCOBB 
100St  REVISED  :  SEPTERBER  I99Z 
1010! 

1015  COfI  /Cc/  CIS) 

1020  OIK  E(20) 

1 025  OATR  273 . 1 5 .2 . 5923E-2 .-7 . 3933E-7 .2 . 862SE- 1 1 

1026  ORTft  1 .971 7E- 15,-2. 2i86E- 19 
1035  REROCI*) 

10«0  PRINT 

1045  PRINTER  IS  701 

1050  PRINT  USING  'ISK.^ORTR  FOR  THE  UNCERTRINTY  RNRLYSIS: **' 

1051  PRINT 
1055  BEEP 

1060  INPUT  "ENTER  FILE  NRKE*  .Fll«0 

1065  PRINT  USING  "lSX.*"Fll*  N«n»:  "■  ,12R“»Fil*S 

1070  BEEP 

1075  INPUT  "ENTER  DRTR  SET  NUKBER  FOR  UNCERTRINTY  RNRLYSIS" .Ids 
1080  BEEP 

1085  INPUT  "ENTER  PRESSURE  CONDITION  <8»V.1»R)  "  .Prc 
1090  Prt*Prc+1 
1095  BEEP 

1100  INPUT  "ENTER  Ci'.Cl 
1105  RSSI6N  0FiU  TO  Files 
1110  ENTER  BFileilfO.Inr. 

1115  ENTER  0FiletOd.Od.Od.Od 
1125  FOR  1»1  TO  Ids 

1130  ENTER  0File»Bvol  ,Banp  ,Etp ,Fn,Tci ,Tco,Pvep)  ,Pv»p2  ,Et • > 

11311  PRINT  Bvol,B»np,E'tp.Fp,.T1  .T2,Pv»p1  ,Pvep2,E<*) 

1135  NEXT  I 
1140  EmfsEIG) 

1145  IF  Prc»l  THEN 
1 150  BEEP 

1155  PRINT  USING  ” ISX  ," "Pressure  Condition:  Vacuum  (kPa)'"* 

1160  ELSE 

1165  PRINT  USING  "15X  ,* "Pressure  Condition;  Rtmospheric  <k.Pe)*‘" 
1170  END  IF 
1180  Ihl*8 
1205  BEEP 

1210  PRINTER  IS  1 

1211  PRINT  "  SELECT  INSIDE  CORRELRTION: * 

1212  PRINT  *  0»  SIEOER-TRTE  lOEFRULT)* 

1213  PRINT  *  1»  PETKHOV-POPOV* 

1214  INPUT  Ihl 

1215  BEEP 

1216  IF  lhi»0  THEN 

1217  BEEP 

1218  INPUT  "  SELECT  REYNOLDS  EXPONENT" .Rexp 
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1218  END  IF 
1228  BEEP 

1222  PRINT  USING  •4X,-*S»Uct  ««t«ri»I  Cod«:*" 

1223  PRINT  USING  '6X.‘*8  Coppar  1  Stftlnl»ft»  St««l"‘ 

122S  PRINT  USING  '6X.*-2  Rluninun  3  88:18  Cu>Nl*'* 

1238  PRINT  USING  ‘GX,**<  Ti\»mu*k*“ 

1235  INPUT  Itt 
1248  IF  Ilt-8  THEN 
1245  BEEP 

1258  INPUT  “SELECT  <8»THIN.  1-THICK )“ .Iwt 

1255  END  IF 

1268  PRINTER  IS  781 

1265  IF  Itt-8  THEN 

12SG  INPUT  “SELECT  OIRHETER  <8«Sri.  1-f1EO.  2«L6)'.04 
I2B7  BEEP 

12B8  INPUT  “SELECT  FLUID  <8-STERH.  1-R-113.  2»E6r,Itluld 
1278  Di«.8127 

1271  IF  D»-8  THEN 

1272  01-.8127 

1273  0&«.ei388 

1274  ENC  IF 

1275  IF  08-1  THEN 

1276  Do-. 8 1438 

1277  END  IF 

1278  IF  0»»2  then 

1278  0O-.8137 

1288  END  IF 

1281  Kc-338.8 

1282  Okc-11.7 
1285  IF  Iwt-8  THEN 
1238  Do-. 8 1388 
1285  ELSE 

1388  Do*. 81438  !  Outside  dieneter  of  test  tube 

1385  ENC  IF 

1318  END  IF 

1315  IF  Itt-1  THEN 

1328  Kc-14.3 

1325  0kc-.72 

1338  D1-.8I27 

1335  Do-. 8 1388 

1348  END  IF 

1345  IF  Itt-2  THEN 

1358  Kc-231.8 

1355  Dkc-S.3 

1368  Do-. 8 I 388 

1365  Di«.8127 

1378  END  IF 
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1375  IF  Itt»3  THEN 

13M  Kc«S5.3 

1385  Dkc«1.27 

1398  0i*.8127 

1395  0O-.81388 

U88  END  IF 

1485  IF  Itt«4  THEN 

1418  Kc«18.9 

1415  0Wc«.95 

1428  0l«.81386 

1425  Do*. 8 1585 

1438  END  IF 

1435  Dl>.ei585 

1448  C2-.81S85 

1445  IF  Itt«4  THEN  01«. 81585 

1445!  IF  Itt«1  THEN  01«. 81585 

1458  PRINTER  IS  781 

1455  Ts«FNTvBv<Enn 

1456  Tb«T»-273.15 

1468  PRINT  USIN6  •15X.**U»por  T«np*r*tur*  *  * *  ,4D.DDD .* *  (DfcO 

C)-“lTs 

1465  PRINT  USING  ■ISX/'Uattr  Flow  Rate  <X>  •  ••,3D.20’iFw 

1478  0tCl».8e5 

1475  0tco>.885 

1488  BEEP 

1485  Oenf  <-1.86-6 

1 498  Ot  »«S0R(  <  { C<  1  )+2*C<  2  )«Enf  ♦3*C<  3  )»Emf  *2^4*C<  4  )*E«f  “3  )*Da»if  >*2  ) 

1495  T»aci+Tco>/2  !  FILM  TEMPERATURE 
15881  uncertainty  IN  THE  COOLING  WATER 
1585  Ort,o».S  !  ERROR  IN  WATER  DENSITY 
1518  0i'if«.8844  <  ERROR  IN  MASS  FLOW  RATE 
1515  Rho«FNRhD(T)  !  WATER  DENSITY 

1528  Mf>(6.7489*Fn-»-13.827}/1888.l  MASS  FLOW  RATE  OF  COOLING  WATER 

1525!  CORRECT  MF  FOR  THE  TEMPERATURE  EFFECT 

1538  Mr«Mf*( 1 .8365-1 .9GG44E-3*Tcl+S.252E-G*Tcl “2  >/l .8837 

1535  Al«(P!*Or2  >/4  !  TUBE  INSIDE  CROSS  SECTION  AREA 

1548  Odl>. 888825 

1545  Oai-PI»Dl»Odl/2  I  ERROR  OF  INSIDE  TUBE  CROSS  AREA 
1558!  COMPUTE  THE  WATER  VELOCITY 
1555  Vu-Mf/lRho^Ai >  !  WATER  VELOCITY 

1568  PRINT  USING  *15X,**Water  Velocity  •  '“,2. DO.**  (w/ 

Vu 

1565!  CORRECT  OUTLET, WATER  TEMP.  FOR  THE  MIXING  CHAMBER  EFFECT 
1566  IF  Itt«8  THEN 

1568  IF  Inn«2  THEN  Tco»Tco-<-3.99E-4+2.75E-3*Vw+1 .45E-3»Vw‘'2+8. 16E-S*Vw“3  > 

1578  IF  Inr.*1  THEN  Tco»Tco-<-G.44E-5+1 .7lE-3*Vw+4.45E-4*Vu‘2+4.87E-5*Vw“3  ) 

1573  IF  Inri«8  AND  Vw>.5  THEN  Tco«Tco-(-2.73E-4+1 .75E-4*Vu+9.35E-4*Vu‘2-1 .96E-S* 
Vw*3  5 
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tS7E  EMC  IF 

1577  IF  Itt«4  THEN  'TITANIUr.  TUBE 

1578  IF  lT»n«®  AND  Uy>.5  THEN  Tco«Tco-( -4.B2E»5-7.53E-**V»*+1 .8eE-3*Ww“2-8.84E-5* 
Vhi‘3  > 

1579  IF  Inn«3  THEN  Tco«Tco-(2.B9E-449.74E-4«Uy+2. 12E-3*Utf*2-3.3lE-S*Uto*3 ) 

1581  END  IF 

1584  IF  Itt-1  THEN  !  LFD  KORODENSE  TITANIUfl  TUBE 

1585  IF  Inn»«  AND  Vw>.5  THEN  Tco«Tco-<-3.39E-4-H  .88E-3*Uw+6.eiE-4*V».i*2*4.  l3E-5« 
Uw*3) 

1585  IF  Inn»3  THEN  Tco»Tco-(2.«9E-4+9.2«E-4*Uu+1 .89E-3*Ui.«*2-2.27E-5*Vi-‘3) 

1588  END  IF 

1589  IF  Inr,»3  THEN 

1 59®  Tco*Tco-<  2 . 524E-5*  1 . 69BE-3*yy+7 . 1 1  E-3*U«*2-3 . 32E-3*Ui.i“3+8 . 555E-4*Ui«*4-7 . 

37E-5»Vw*5  > 

1591  END  IF 

1593  T«(Tcl+Tco)*.5  'FILM  TEHPERATURE 
1594!  PRINT  Tci 
1595!  PRINT  Tco 
159SI  PRINT  Inn 

1597!  COMPUTE  THE  ERROR  IN  WATER  UELOCITY 

1598  Ovu*Uiri*SQR<<Onf/Mf  >*2+<Orf.o/Rho>'‘2+<Dai/Ai  >'‘2  1 

1599*  UNCERTAINTY  IN  T'.e  xEYNOLOS  NUMBER 

18®®  Mw«FNMu<T)  !  WATER  VISCOSITY 

1885  Dnu«B.E-B  !  ERiiOR  OF  WATER  VISCOSITY 

161®  Re»{Rho*Vv'*Oi //Mw 

1615  Dr*«Re*SOR<<Orho/Rho)'2+<Dvy/Vy>'2+<Ddi/Dl  )*2+<D«to/Hw )*2 ) 

1628!  uncertainty  IN  THE  HEAT  TRANSFERRED 
1625  Cpy<FNCpu(T) 

163®  0»Mf •<Tco-Tci >*Cpy 
1635  Dcpu«8 

164®  DQ»Q«SOR(<Owf/Mf  )''2+<  <0tco/<Tco-Tci  ) )  r2+<  (Dtcl/CTco-Tci  ? )  ;'2+<Dcpw/Cpy  1*2 

% 

/ 

1645!  UNCERTAINTY  IN  THE  HEAT  FLUX 
165®  01«.®®®5  !  ERROR  IN  TUBE  LENSTH 

1655  Ddo».e®®®25 

166®  L». 13335  !  CONDENSING  TUBE  LENSTH 

1665  Qp»Q/<PI*Do*L)  i  HEAT  FLUX 

167®  PRINT  USING  *15X,'-Heat  Flux  *  '•,2.3DE,’“  <U/w*2>' 

“•»Op 

1675  PRINT  USING  "ISX  ."•Tub«-wetal  thernal  conduc.  «  '•,3D.D,""  <W/w 

188®  PRINT  USING  •‘15X,”PatLhov-Popov  constant-  *’.2.4D"»Cl 
1685  Oqp«Qp*SQR<  <Dd/C  )*2+<Ddo/Oo  >"2+<Dl/L  >'2 ) 

1698  LMtd*<Tco-Tci  //L06< (Ts-Tci  )/<T8-Tco> ) 

1695  Uo-Qp/Lntd  «  OVERALL  HEAT  TRANSFER  COEF. 

1788  A1«0t8*{Tcl-Tc&)/<  <Ts-Tci  )*<  Ts-Tcc  )*LOS(  (Ts-Tcl  )/(T8-Tcc.) )  5 

1785  A2«Btti/<<TB-Tci >*L06< tTs-Tci >/<T8-Tco)>) 

171®  A3»Dtco/<  <T8-Tco  )*L0G1 (Ts-Tci  )/(Ts-Tco  > ) > 
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17*.S  Di«lJ«LRtb*S0R{Ar2+A2"2+A3*2> 

’.720  Ouo>Uo«SQR(  (Oqd/Op  )*2<^(Clntd/Lntd)*2  ) 

1725  t1»fUi 

1730  T1-(T+273.1S)/273.1S 
1735  Kw»FNKw1T1> 

17*0  Rc-0.  «  INTERSCEPT  FROR  SIEOER  PR06RAR 

17*5  LI -^.060325  1  LEW6TH  OF  UNFINNEO  LEFT  PART  OF  TUBE 
1750  L2«. 034325  1  LEN6TH  OF  UNFINNED  RIGHT  PART  OF  TUBE 
1755  Pr-Cpw^Mw/Kw 
1760  nuy-FNnuwIT) 

17651  UNCERTAINTY  OF  INSIDE  HEAT-TRANSFER  COEFF. 

1765  Ct»1.0 

1768  IF  lhi«0  THEN 

1775  Hl«<Kw/0i  )*<Cl«R**R«xp«Pr*.333*Cf+Ac ) 

1776  END  IF 

1777  IF  Ihi-1  THEN 

1778  Ep5i»< 1 .82*L6T<R»  )-1 .64  >*<-2  ) 

1773  Ppkl«1 .0+1 .34*Epsi 

1780  Ppk2«1 1 .7+1 .8+Pr*<-1/3) 

1781  Ppl»\Ep8i/8  )*Re*Pr 

1782  Pp2*<Ppkl+Ppk2*<Epsi/8)*.5*<Pr'‘<2/3>-1  >> 

1783  Hi»<Kw/Di >*<Pp1/Pp2> 

1784  END  IF 

1786  Oti«Q/<PI*Dl*(L+L1+Fe1+L2*F«2)*Hl ) 

1787  CfC*(Muu/FNHuu<UDH))\}4 
1730  IF  A8S<<Cfc-Cf>/CfC».01  THEN 
1735  Cf«<Cf+Cfc )*.S 

1800  60TC  1775 
1805  END  IF 
1810  Pl«PI*<Di+01  > 

1815  B1»<01-Dl  )*PI*lDi+D1  >+.5 
1820  M1«1Hl+Pl/<Kc*B1 >>*.5 
1825  P2»PI*<Di+02) 

1830  B2«<D2-Di  )*PI*<Di+D2>*.5 
1835  K2«(Hl*P2/<Kc*B2)>'‘.5 
1840  F»1«FNT*r.h1f11*L1  ;/<l11*Ln 

1845  F62»FNT»r.h<l12*L2  )/<n2*L2 ) 

1850  Otc«0/<PI*Oi»<L+L1*Fe1+L2«Fp2 )+Hi  ) 

1855  IF  ABS<lDtc-Dti >/Otc)>.01  THEN  1775 

1860  Dku«.0010  1  ERROR  IN  WATER  THERMAL  CONDUCTIVITY 

1855  IF  Ifluid<2  THEN  Dcl«.002  !  ERROR  IN  SIEDER-TATE  COEFFICIENT 

1866  IF  Ifluld-0  AND  Oi«0  THEN  Dei-. 003 

1867  IF  Ifluid«2  THEN  Oci>.005 

1870  Opr«.0S  !  ERROR  IN  PRANDTL  NUMBER 
1875  Dcf«8.E-6 
1830  A4«.14*Dcf/Cf 

1885  Dhi»Hi*SQRl(Dkw/Ku)''2+<Ddl/Oi  >*2+<  .S+Drt/Re  >‘2+<  .333+0pr7Pr  >“2+<Dci/Ci  )"2+ 
A41 
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1898!  UNCERTAINTY  OF  OUTSIDE  HEAT-TRANSFER  COEFF. 

1895  Rw>0o*L06(0c/0l  )/<2*Kc)  !  WALL  RESISTANCE 

1988  Mo« 1 / ( ( 1 /Uo  )-<  Do«L/ ( Dl •< L+L 1 •F» 1 ♦L2*F«2  >*Hi >  >-Ry ) 

1 985  Dru«Rw»S0R<  < Odo/Oo ) *2+<  Dkc/Kc  >*2+<  Ddo/( Do*L08( Do/Oi  )  >  )'2+{ Odl /<  Ci ‘LOSt  Oo/C 
i‘/>>*2) 

1918  A5»1/Uo-Rw-<Do»L/<0l«<L+L1*F*l+L2*F*2)*Hl >> 

1915  A6>0uo/(Uo‘2*A5) 

1928  A7-0rw/A5 

1925  A8«< tOo/<Ol*Hl  }  >«(OAi/Hl )  )/A5 

1938  PRINT 

1935  0ho»Ho*S0R(A6‘2-^A7*2-^A8‘2) 

1948!  CALCULATE  THE  X  UNCERTAINTY  IN  Ho 
1945  Prho*Oho» 188/Ho 

1958!  CALCULATE  THE  X  UNCERTAINTY  IN  REYNOLDS  NUHBER 
1 955  Prre»Orft* 1 88 /R* 

1968!  CALCULATE  THE  X  UNCERTAINTY  IN  HASS  FLOW  RATE 
1955  Pr«f«Dnf*188/Hf 

1978!  CALCULATE  THE  X  UNCERTAINTY  IN  HEAT  TRANSFER 
1975  Prop*OQP*188/Qp 

1988!  CALCULATE  THE  X  UNCERTAINTY  IN  LHTD 
1985  Prlfttd“Dl«td»188/Lntd 
1998!  CALCULATE  THE  X  UNCERTAINTY  IN  Rw 
1995  Prru»0ru*188/Rw 

2888!  CALCULATE  THE  X  UNCERTAINTY  IN  OVERALL  HEAT  TRANSFER  COEF. 

2885  Pruo«0uo*188/Uo 

2818!  CALCULATE  THE  X  UNCERTAINTY  IN  INSIDE  HEAT  TRANSFER  COEFF. 

2815  Prhi«0hi*18e/Hi 
2828  PRINT 

2825  PRINT  USING  *1SX  ,* 'UNCERTAINTY  ANALYSIS:"" 

2838  PRINT 

2835  PRINT  USING  'ISX.**'  VARIABLE  PERCENT  UNCERTAINTY"' 

2848  PRINT 

2845  PRINT  USING  '15X,"Ha65  Flow  Rato.  Hd  "  ,Z.2D.':Pri».f 

2858  PRINT  USING  '  15X  ."Rtynolds  Numb  or  ,  Ro  "  ,2 .2D  . '  jPrro 

2855  PRINT  USING  '15X."Hoat  Flux,  Q  "  .DD.2D ,' iPrqp 

28S8  PRINT  USING  '  1SX  ,"LoO“«aan-ToR  Oiff,  LHTD  "  .D0.20' iPr  lwtd 

28B5  PRINT  USING  '15X."Wall  Root  stance.  Ru  "  ,DD.2D ,' :Prru 

2878  PRINT  USING  '15X,"0yorall  H.T.C.  .  Uo  "  ,DD.2D  .'iPruc 

2875  PRINT  USING  '  15X  ,"Wator-SldO  H.T.C.  ,  Hi  ”  .3D.2D  ,*  iPrhi 

2888  PRINT  USING  '  1SX  ."Vapor-Slde  H.T.C.,  Ho  "  .3D.2D  .'iPrho 

2885  END 
2898  OEF  FNHuulT) 

2895  A*247.8/<T+133.15) 

2188  Huu«2.4E-5«18‘'A 

2185  RETURN  Huw 
2118  FNEND 
2115  DEF  FNTanh(X) 
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212*  P-EXP{X> 

2t25  0>EXP<->X) 

215®  T*nh»<P-0)/<P+Q> 

2135  RETURN  Tanh 
2UC  FNENO 
2145  DEFFNKu(Tl) 

2 1 5®  Kw— . 92247+T 1 • <  2 . 8395-T 1 • < 1 . 8®e7-T 1 • ( .52577- .97344 •! 1) ) 1 

2155  RETURN  Ku 

216®  FNENO 

2165  DEF  FNMulT) 

217®  R»247.8/<T+133.15) 

2175  11w«2.4E-5*l®'‘A 
218®  RETURN  flu 
2185  FNEf^C 
219®  DEF  FNRhotT) 

2195  Rho«999.52946+T*< .®l269-T*<5.482S13E-3-T*l .234147E-5 ) > 

229®  RETURN  Rho 
2295  FNENO 
221®  OEF  FNCpu<T'/ 

22 1 5  Cpu«<  4.211 2®858-T*<  2 . 26826E-3-T* <  4 . 4236 1 E-5+2 .71 428E-7*T  > ) )•  1 08® 

222®  RETURN  Cpu 

2225  FNENO 

223®  DEF  FNTv$v< Ei>if  ) 

2235  COM  /Cc/  C<5) 

224®  T-C<  8 ) 

2245  FOR  I»1  TO  S 
225®  T*T+C<I  >*Ei*if'I 
2255  NEXT  I 
226®  RETURN  T 
2265  FNENO 
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DftTA  FOR  THE  UNCERTAINTY  ANALYSIS: 


File  Nene: 

Pressure  Condition: 
Vapor  Tenperature 
Water  Flow  Rate  <X) 
Water  Velocity 
Heat  Flux 
Tuoe-netal  thermal 


AT*  13 

Atmospheric  <kPa) 

>  99.862 

•  89.  M 

«  4.26 

•  1.22SE+e6 

conduc.  *  396.8 


Petkhov-Popov  constant*  3.1616 


(Dap  C) 

(m/s ) 
(y/m‘2 ) 
(W/n.K  > 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

Hass  Flow  Rate.  Md 
Reynolds  Nunber,  Re 
Heat  Flux ,  q 
LoB“Nean-Ten  Oiff,  LMTD 
Wall  Resistance,  Ru 
Overall  H.T.C. .  Uo 
Water-Side  H.T.C.,  Hi 
Vapor-Side  H.T.C.,  Ho 


PERCENT  uncertainty 

6.82 
1  .28 
.97 
.22 
4.24 
.99 
1.13 
64.56 
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DftTft  FOR  THE  UNCERTAINTY  ANALYSIS: 


Flic  Name: 

Prcccurc  Condition: 

Uapor  Tcnpcraturc 
Water  Flou  Rate  <Z) 

Water  Uelocity 
Heat  Flux 

Tube-net a 1  thernal  conduc. 
Petkhov-Popov  conetant*  3 


AT*  13 

Atnospberic  (kPal 
iee.069 


70.00 

3.74 

1 .1S0E-^0E 
330.8 


IfilE 


lOep  C) 

<n/B  > 
(W/n*2  ) 
(W/n.K ) 


UNCERTAINTY  ANALYSIS: 

VARIABLE  PERCENT  UNCERTAINTY 


NasB  Flou  Rate ,  fid 

0.34 

Reynolds  Nunber ,  Re 

1  .37 

Heat  Flux,  Q 

1 .0C 

LoQ-flean-Ten  Oiff,  LflTO 

.21 

Wall  Resistance.  Ru 

4.24 

Overall  H.T.C. ,  Uo 

1  .08 

Water-Side  H.T.C. .  Hi 

1 .19 

Vapor-Side  H.T.C.  ,  Ho 

22.71 
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OATft  FOR  THE  UNCERTAINTY  ANALYSIS: 


File  Nene:  AT®13 

Preesure  Condition:  Atnoepheric  (lcPe> 


Vapor  Tanperature 
Water  Flow  Rata  <t) 

Water  Velocity 
Heat  Flux 

Tube-natal  tbarnal  conduc. 
Petkhov-Popov  constant*  3 


m 

99.969 

(Oao  C) 

m 

se.®0 

m 

2.70 

(n/s ) 

« 

1 .092E‘^0E 

(W/n*2  > 

s 

161B 

390.6 

(W/n.K ) 

UNCERTAINTY  ANALYSIS: 

VARIABLE  PERCENT  UNCERTAINTY 


Hass  FIou  Rata ,  Hd 

1 .29 

Reynolds  Nunbar .  Re 

1.62 

Heat  Flux ,  q 

1 .38 

LoQ-Maan-Tan  Diff,  LHTO 

.16 

Wall  Resistance,  Rw 

4.2* 

Overall  H.T.C. ,  Uo 

1 .39 

Water-Side  H.T.C.  .  Hi 

1.37 

Vapor-Sida  H.T.C.,  Ho 

8.11 
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DATA  FOR  the  UNCERTAINTY  ANALYSIS: 

Fil*  Nine*.  AT®13 

Pressure  Condition:  Atnosoheric  (kPe) 

Uepor  Tenpereture  •  <0e6  C) 

Water  Flow  Rate  <X)  ■  2®.®® 

Water  Uelocity  •  <*'5 

Heat  Flux  •  7.864E+®S  (W/n*2) 

Tube-natal  theme  1  conduc.  “  39*. 8  <W/n.K) 

Petkhov-Popov  constant*  3.1616 


UNCERTAINTY  ANALYSIS: 


UARIABLE 

PERCENT  uncertainty 

Hass  Flow  Rate,  tid 

3.®5 

Reynolds  Number,  Re 

3.2® 

Heat  Flux .  q 

3.09 

LoQ-Mean-Ten  OltT,  LtlTD 

.®9 

Wall  Resistance.  Rw 

4.24 

Overall  H.T.C. ,  Uo 

3.®9 

Water-Side  H.T.C.  .  Hi 

2.6® 

Vapor-Side  H.T.C.,  Ho 

7.7® 

215 


DATfS  FOR  THE  UNCERTAINTY  ANALYSIS 


Flic  Name:  AT061 

Pressure  Condition:  AtnospAeric  <kPe) 


Vepor  Tenpereture  •  99.994 

Weter  Flow  Rete  (X)  •  99. 9® 

Ueter  Uelocity  •  *-27 

Heel  Flux  ■  7.277E+95 

Tube-netel  thernel  conduc.  ■  S5.3 


PetKhov-Popov  constent*  2.7938 


( Deo  C ) 

<n/s ) 
<W/n*2 ) 
<U/a.K) 


UNCERTAINTY  ANALYSIS*. 


UARIABLE  PERCENT  UNCERTAINTY 


flass  Flou  Rate,  tid  9.82 
Reynolds  Number,  Re  1*25 
Heat  Flux  ,  Q  ' *9' 
Los-Mean-Tem  Olff,  LMTD  .38 
Wall  Resistance,  Ru  3.78 
Overall  H.T.C.  ,  Uo  1.98 
Water-Side  H.T.C.  ,  Hi  >.99 
Vapor-Side  H.T.C.,  Ho  4.98 
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DATA  FOR  THE  UNCERTAINTY  ANALYSIS 


Flic  Nam:  ATOEl 

PrAktur*  Condition:  Atnokphoric  (kPo) 
UApor  TonpArAturA  •  98.727 

UAter  Flow  Rot A  (X>  *  29.99 

WAtAr  UAlocity  •  1.1S 

HAAt  Flux  •  S.489E+95 

TubA-nAtAl  IhArnAl  conduc.  ■  S5.3 

PAtkhov-Popov  conktAnt*  2.7938 


(Oaq  C) 

(n/k ) 
<U/n*2  > 
(U/n.K ) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

Hokk  Flow  RaIa,  fid 
RAynoldk  NunbAr ,  Ra 
HaaI  Flux.  Q 
LOQ-flAAn-TAffi  Dlff,  LfITO 
Ukll  RASlktAncA,  Rw 
OvArAll  H.T.C. .  Uo 
UktAr-SldA  H.T.C. ,  Hi 
VAPOr-SldA  H.T.C.  ,  Ho 


PERCENT  UNCERTAINTY 

3.92 

3.15 

3.9S 

.14 

3.78 

3.97 

2.55 

12.27 
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DATA  FOR  THE  UNCERTAINTY  ANALYSIS: 


Fll»  N»ne:  AT®63 

Pr«8Burt  Condition:  Atnoipheric  <kP«) 


Uopor  Tonporature  ■  99.87® 

Uatar  Flow  Rata  •  8®.®® 

Uatar  Ualocity  ■  *.29 

Haat  Flux  •  7.<52E+®5 

Tuba-natal  tharnal  conduc.  *  55.5 


Patkhov-Popov  constant*  2.5534 


(Oao  C) 

(n/s ) 
<W/n*2> 
tU/n.K) 


UNCERTAINTY  ANALYSIS: 

VARIABLE  PERCENT  UNCERTAINTY 


Mass  Flow  Rata,  tid  8.81 
Reynolds  Nunbar,  Ra  1.2® 
Haat  Flux.  Q  1.99 
LoQ-flaan-Ten  Diff,  LflTO  .37 
Wall  Resistance .  Rw  3.78 
Overall  H.T.C.  ,  Uo  1.87 
Water-Side  H.T.C.  ,  Hi  1.95 
Uapor-Side  H.T.C.  ,  Ho  *.7B 
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DATA  FOR  THE  UNCERTAINTY  ANALYSIS: 

Flit  Nm*:  AT063 

PrMkurt  Condition:  Atnotphoric  <liP«) 

Uopor  Tonporoturt  •  1M.f99  <DoB  C> 

Uotor  Flow  Roto  <X)  •  79. t® 

Uotor  Uolocity  •  S.77  <n/») 

Moot  Flux  «  7.3l5E+eS  <U/n*2> 

Tubo-notol  thornol  conduc.  •  55.3  <U/«.K) 

Potkhov-Popov  conotont*  2.5534 


UNCERTAINTY  ANALYSIS: 
UARIABLE 

Hoik  Flow  Roto .  rid 
Roynoldk  Nunbor,  Ro 
Hoot  Flux,  q 
Loo-Moon-Ton  Olft,  LHTO 
Uoll  Rokistonco,  Rw 
Ovoroll  H.T.C. ,  Uo 
Wotor-Sldo  H.T.C. ,  HI 
Vopor-Sldo  H.T.C.,  Ho 


PERCENT  uncertainty 

e.93 
1 .28 
1.88 
.33 
3.78 
1.13 
1.11 
6.31 
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DATft  FOR  THE  UNCERTAINTY  ANALYSIS: 


Flic  Name:  ATOE3 

PrMBurt  Condition:  Atnotphorlc  (fcP»> 


Uopor  Tonporaturo  ■  iM.fll 

Hatar  Flow  Rata  <X)  •  50.00 

Watar  Ualocity  ■  2.72 

Haat  Flux  •  6.835E+0S 

Tuba-natal  tharnal  conduc.  *  55.3 


Patkhov-Popov  constant*  2.5534 


(OaQ  C) 

(n/a ) 
<H/n*2 ) 
(U/n.K) 


UNCERTAINTY  ANALYSIS: 

VARIABLE  PERCENT  UNCERTAINTY 


flass  Flow  Rata,  fid 

1.28 

Reynolds  Nunbar,  Ra 

1 .56 

Haat  Flux ,  0 

1.39 

LoQ-flaan-Tan  Oiff,  LfITO 

.26 

Uall  Resistance ,  Ru 

3.78 

Overall  H.T.C. .  Uo 

1  .41 

Uatar-Sida  H.T.C. ,  Hi 

1.32 

Vapor-Slda  H.T.C. ,  Ho 

22.05 

220 


FOR  THE  UNCERTAINTY  ANALYSIS: 


Fll*  Nanc:  ATi63 

Praasura  Condition:  Atnoapharic  <kPa) 


Vapor  Tanparatura  •  99.928 

Uatar  Flow  Rata  <*>  •  29. •• 

Matar  Valocity  •  <.1S 

Haat  Flux  ■  S.289E^9S 

Tube-natal  tharnal  conduc.  ■  55.3 


Patkhov-Popov  constant*  2.5534 


(Oac  C> 

(n/s) 
<W/n*2  ) 
<W/n.K) 


uncertainty  ANALYSIS: 

variable  percent  uncertainty 


Hass  Flow  Rata,  fid 

3.94 

Reynolds  Nunbar.  Ra 

3.17 

Haat  Flux,  o 

3.98 

LoQ-Maan-Tan  Oift,  LflTO 

.14 

Wall  Resistance,  Rw 

3.78 

Overall  H.T.C. ,  Uo 

3.98 

Watar-Slda  H.T.C. ,  Hi 

2.58 

Vapor-Slda  H.T.C.,  Ho 

13.12 
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DATft  FOR  THE  UNCERTAINTY  ANALYSIS: 


(Oaq  C> 

(n/S  > 
<H/«*2  ) 
(U/n.K) 


UNCERTAINTY  ANALYSIS: 


UARIABLE 

PERCENT  uncertainty 

nosK  Flow  Roto.  Hd 

8.81 

Reynolds  Nunbor,  Re 

1  .28 

Heot  Flux,  0 

1 .88 

LoQ-Moon-Ten  Olff,  LMTO 

.54 

Uoll  Resistonce,  Ru 

5.87 

Overoll  H.T.C. ,  Uo 

1 .21 

Uoter-Side  H.T.C. ,  Hi 

1 .85 

Uopor-Side  H.T.C. .  Ho 

8.37 

Fll*  H»n%:  AT#94 

Pr*i»ur«  Condition:  AtnoopAorlc  <kPo> 


Uopor  Tonporoture  •  99.986 

Uotor  Flou  Roto  <X>  **  8®. 88 

Uotor  Uoloclty  •  **28 

Hoot  Flux  •  5.183E+8S 

Tubo-notol  thornol  conduc.  »  14.3 


Potkhov-Popov  conotont*  2.8961 
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MTft  FOR  THE  UNCERTAINTY  ANALYSIS: 


FlU  Nan«:  AT094 

Pr«»iurt  Condition:  Atnoiphoric  <kP*) 
Uopor  Tonporatunc  ■  99.924 

ttator  Flow  Rato  <X)  ■  50.00 

Uatar  Ualocity  ■  2.72 

Haat  Flux  •  4.8t3E+05 

Tuba-natal  tharnal  conduc.  »  14.3 

Patkhov-Popov  eonatant*  2.0961 


(Dao  C) 

(n/t ) 
<«/n*2  ) 
t«/n.K) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 


PERCENT  UNCERTAINTY 


Mail  Flow  Rate,  Md  1.28 
Raynolds  Nunbar.  Re  1.56 
Heat  Flux.  0 

LoQ-flean-Ten  Olff,  LHTD  .36 
Wall  Resiatance.  Ru  5.87 
Overall  H.T.C.  ,  Uo  1 •♦6 
Water-Side  H.T.C. ,  Hi  1.32 
Vapor-Slde  H.T.C. ,  Ho  19.88 
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O^TA  FOR  THE  UNCERTAINTY  ANALYSIS: 


Flic  Ncnc:  AT094 

Prciiurc  Condition:  Atnosphc 
Ucpor  Temper cturc 
Ueter  Flow  Rete  <t) 

Ueter  Velocity 
Heet  Flux 

Tube~netel  tbernel  condue. 
Petkhov-Popov  conetentB  2.0961 


1C  (kPe) 
99.806 
20.00 
1.15 

3.840E<^05 

14.3 


<OeQ  C) 

(n/s) 
<W/n“2  ) 
(W/n.K ) 


UNCERTAINTY  ANALYSIS: 

VARIABLE  PERCENT  UNCERTAINTY 


neii  Flow  Rete.  fid 

3.04 

Reynolds  Nunber,  Re 

3.16 

Heet  Flux,  0 

3.08 

LOB"f>een-Ten  Oiff,  LfITO 

.19 

Uell  Resistence,  Ru 

5.87 

Overall  H.T.C. ,  Uo 

3.08 

Water-Side  H.T.C. ,  Hi 

2.57 

Vapor-Side  H.T.C. ,  Ho 

23.75 
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OATft  FOR  THE  UNCERTAINTY  ANALYSIS: 


Flit  Nant:  AT1®1 

Prttsure  Condition:  Atnotpharic  <kPa> 


Uapor  Tanparaturt 
Uatar  Flow  Rata  <X) 

Uatar  Ualocity 
Haat  Flux 

Tubt'-retal  tharnal  conduc 
Patkhov-Popov  constant* 


•  lee.eei  <DaD  o 

•  8®.®® 

•  4.27  <n/8) 

«  8.6UE+®S  lW/n*2> 

•  231.8  (U/n.K> 

2.3854 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

Mass  Flow  Rate ,  Nd 
Reynolds  Nunber,  Re 
Heat  Flux ,  q 
LoO“f1o»n-TePi  Oiff,  LHTO 
Wall  Resistance,  Ru 
Overall  H.T.C. ,  Uo 
Water-Side  H.T.C.  ,  Hi 
Vapor-Side  H.T.C.,  Ho 


PERCENT  UNCERTAINTY 

®.82 
1 .25 
.98 
.29 
5.®1 
1  .82 
1.1® 

7.43 
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DATA  FOR  TH£  UNCERTAINTY  ANALYSIS: 


File  Nane:  AT10J 

Preeeure  Condition:  Atmospheric  (kPe> 

Uepor  Temperature  •  100.UB 

Water  Flow  Rate  <X)  •  50. ®0 

Water  Velocity  •  2.72 

Heat  Flux  •  8.e34E+05 

Tube-metal  thermal  conduc.  •  231.8 

Petkhov-Popov  constant*  2.3854 


( Oeg  C } 

<m/B ) 
(W/m*2  > 
(W/m.K ) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

Mass  Flow  Rate ,  Md 
Reynolds  Number.  Re 
Heat  Flux,  q 
Loo-Mean-Tem  Oiff,  LMTD 
Wall  Resistance,  Ru 
Overall  H.T.C. .  Uo 
Water-Side  H.T.C.  .  Hi 
Vapor-Side  H.T.C.,  Ho 


PERCENT  UNCERTAINTY 

1 .28 
1  .57 
1.38 
.20 
5.01 
1  .39 
1 .33 
47.40 


DATA  FOR  THE  UNCERTAINTY  ANALYSIS: 


File  Nenc:  VT094 


Prtiiure  Condition:  Vacuum  (kPe) 


Vapor  Temperature  •  48.927 

Mater  Flow  Rate  IS)  •  58.88 

Water  Velocity  •  2.75 

Heat  Flux  •  1.5I2E+85 

Tube-metal  thermal  conduc.  »  14.3 


Petkhov-Popov  conitant*  l .9238 


(Deo  C) 

(m/t ) 
<U/m*2 ) 
(U/m.K) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

fiass  Flow  Rate ,  Hd 
Reynolds  Number.  Re 
Heat  Flux.  Q 
LoQ-tlaan-Tem  Oiff.  LMTO 
Mall  Resistance.  Ru 
Overall  H.T.C. .  Uo 
Water-Side  H.T.C.  .  Hi 
Vapor-Side  H.T.C..  Ho 


PERCENT  UNCERTAINTY 

1.27 
1 .49 
1.78 
1.17 
5.87 
2.13 
1.2E 
12.84 
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DATA  FOR  THE  UNCERTAINTY  ANALYSIS: 


File  Nene:  UTe94 


Preiiure  Condition:  Uecuun  <kPe 
Uepor  Temper eture  * 

Ueter  Flow  Rete  (X)  * 

Ueter  Uelocity  ■ 

Heet  Flux  * 

Tube-net  el  t  hemal  conduc.  * 
Petkhov-Popov  conetent*  1.9238 


48.822 

28.80 

1.16 

1 .194E+85 
14.3 


(Oeo  C) 

(n/s ) 
<U/n*2 ) 
(U/n.K) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

tlass  Flow  Rete .  fid 
Reynolds  Number.  Re 
Heat  Flux,  q 
LOQ-flean-Tem  Olff,  LfITO 
Uall  Resistance.  Ru 
Overall  H.T.C. ,  Uo 
Water-Side  H.T.C.  .  Hi 
Vapor-Side  H.T.C. ,  Ho 


PERCENT  UNCERTAINTY 

3.81 

3.11 

3.18 

.62 

5.87 

3.17 

2.52 

68.75 
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OftTA  FOR  THE  ONCERTRINTY  ANALYSIS: 


File  Nane:  VTe94 

PrtsBure  Condition:  V/ocuun  (kPa) 


Vapor  Tanparalura  •  49.091 

Uatar  Flow  Rata  <X>  *  20.00 

Uatar  Valocity  *  1«16 

Haat  Flux  •  1.210E+05 

Tuba-natal  tharnal  eonduc.  *  14.3 


Patkhov-Popov  conatant*  1.9238 


(Oao  C) 

(n/a) 
<H/n*2  > 
(U/n.K) 


UNCERTAINTY  ANALYSIS: 

VARIABLE  PERCENT  UNCERTAINTY 


Nasa  Flou  Rata,  fid 

3.01 

Raynolda  Nunbar,  Ra 

3.11 

Haat  Flux,  Q 

3.10 

Loo-Maan-Tari  Diff,  LfITO 

.62 

Wall  Rasiatanca,  Ru 

5.87 

Ovarall  H.T.C. ,  Uo 

3.16 

Watar-Slda  H.T.C. ,  Hi 

2.52 

Vapor-Side  H.T.C. ,  Ho 

61 .42 
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DATA  FOR  THE  UNCERTAINTY  ANALYSIS: 


File  Name;  UTieS 

Preesure  Condition:  Vacuun  <kPa) 


Uapor  Tanperature  ■  *8.738 

Water  Flow  Rate  <I>  ■  8*-®« 

Water  Velocity  ■ 

Heat  Flux  •  2.274E+0S 

Tube-netal  tharnal  conduc.  ■  231.8 


Petkhov-Popov  constant*  2. €284 


(Dec  O 

(n/s ) 
<W/n*2 ) 
tW/n.K) 


uncertainty  ANALYSIS: 
VARIABLE 

Mass  Flow  Rate,  Nd 
Reynolds  Nunber,  Re 
Heat  Flux ,  Q 
LO0“tt4S’^"Ten  Oiff,  LMTO 
Wall  Resistance.  Ru 
Overall  H.T.C. ,  Uo 
Water-Side  H.T.C.  ,  Hi 
Vapor-Side  H.T.C.,  Ho 


PERCENT  UNCERTAINTY 

€.81 
1 .20 
1.53 
1 .21 
5.€1 
1 .95 
l.€G 
7.43 
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OATft  FOR  THE  UNCERTAINTY  ANALYSIS: 


File  Ne«e:  VTJ®3 

Pressure  Condition:  Uecuun  <k.Pe) 


Vapor  Tenperature  •  *8.628 

Water  Flow  Rate  (X)  *  50.8® 

Water  Velocity  •  2.72 

Heat  Flux  •  2.®7*E+®5 

Tube-netal  tAarnal  conduc.  *  231.8 


Petkhov-Popov  constant*  2.0284 


( Dec  C } 

(n/s ) 
(W/«*2  > 
(W/n.K  ) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

Nass  Flow  Rate.  Hd 
Reynolds  Number.  Re 
Heat  Flux .  q 
Loo~Nft»Ti“Ten  Dlff.  LMTD 
Wall  Resistance.  Ru 
Overall  H.T.C. .  Uo 
Water-Side  H.T.C. ,  Hi 
Vapor-Side  H.T.C..  Ho 


PERCENT  uncertainty 

1 .28 
1.55 
1 .6® 

.84 
5.61 
1 .81 
1 .32 
23.78 
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FOR  THE  UNCERTAINTY  ANALYSIS: 


Fll*  N«n«:  VTt®3 

Prtftturt  Condition:  Uocuun  (kPa) 


Vapor  Tonptraturo 
Water  Flow  Rata  (X) 

Water  Velocity 
Heat  Flux 

Tuba-natal  tharnal  eonduc 
Petkhov-Popov  constant* 


-  48.637 

«  2e.«« 

•  1.14 

«  1.244E485 

-  231.8 
2.«284 


<0aQ  C) 

(n/B ) 
(W/n*2 ) 
(W/n.K ) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

NaSB  Flow  Rata,  fid 
RaynoldB  Nunbar ,  Ra 
Haat  Flux ,  q 
Loo^Waan-Tan  Oiff,  LMTO 
Wall  Rasistanca.  Rw 
Ovarall  H.T.C. ,  Uo 
Uatar-Sida  H.T.C. ,  Hi 
Vapor-Sida  H.T.C. ,  Ho 


PERCENT  UNCERTAINTY 

3.85 

3.19 

3.14 

.69 

5.81 

3.28 

2.59 

18.77 
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DftTft  FOR  THE  UNCERTAINTY  ANALYSIS: 


Fil*  Nane:  ATlft 

Prtsfturc  Condition:  Atnooohoric  (kPo) 


Vapor  Tanparatupo  *  tM.1B8 

Uatar  Flow  Rato  it)  *  28. M 

Uatar  Velocity  *  1.15 

Heat  Flux  •  6.394E^0S 

Tube-natal  thernal  conduc.  *  251.8 


Petkhov-Popov  constant*  2.38S4 


(Dap  C> 

(n/B } 
<U/n*2  > 
(U/n.K) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

HasB  Flow  Rate,  tid 
Reynolds  Nunber.  Re 
Heat  Flux ,  Q 
Loo-fleari-Ten  Oiff,  LfITO 
Uall  Resistance,  Ru 
Overall  H.T.C. .  Uo 
Water-Side  H.T.C. ,  Hi 
Vapor-Slde  H.T.C.  ,  Ho 


PERCENT  UNCERTAINTY 

3.84 

3.18 

3.88 

.12 

5.81 

3.88 

2.58 

18.78 
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DATA  FOR  THE  UNCERTAINTY  ANALYSIS: 

Fait  Ntnt:  VT®11 

PrttBurt  Condition:  Uacuun  (kPt) 


Utpor  Ttnptrtlurt  * 

Utltr  Flou  Rote  <X)  • 

48.675 

86.66 

(Dap  C) 

Water  Ualocity  ■ 

4.32 

(n/B  > 

Heat  Flux  * 

3.48SE465 

<W/n*2 ) 

Tuba-natal  tharnal  conduc.  • 

Patkhov-Popov  conatant*  2. 3662 

596.8 

(U/n.K) 

UNCERTAINTY  ANALYSIS*. 

VARIABLE 

PERCENT  UNCERTAINTY 

tlass  Flow  Rata,  lid 

6.81 

Reynolds  Nunber ,  Ra 

1 .14 

Heat  Flux ,  Q 

1.22 

LoB“Nean-Tan  Oiff,  LflTO 

.86 

Wall  Rasistance,  Rw 

4.24 

Overall  H.T.C. ,  Uo 

1  .46 

Water-Side  H.T.C. ,  Hi 

1.66 

Uapor-Side  H.T.C. ,  Ho 

16.92 

234 


DATA  FOR  THE  UNCERTAINTY  ANALYSIS: 


File  Nine: 

Presiure  Condition: 

Uepor  Tenpereturc 
Water  Flow  Rate  <X> 

Water  Uelocity 
Heat  Flux 

Tube-netal  thernal  conduc. 


UT®11 

Uacuun  (kPa) 

48.541 

4e.f« 

2.21 

2.84SE4e5 
398.8 


Petkhov-Popov  constant*  2.9862 


<Oeo  C) 

<b/s  > 
<W/n*2  ) 
<W/n.K> 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

Hass  Flow  Rate,  Hd 
Reynolds  NunPer ,  Re 
Heat  Flux ,  q 
LoO“Nean-Ten  Oitf,  LMTO 
Wall  Resistance,  Ru 
Overall  H.T.C. ,  Uo 
Water-Side  H.T.C. ,  Hi 
Vapor-Side  H.T.C.,  Ho 


PERCENT  UNCERTAINTY 

1.58 
1 .77 
1.71 
.58 
4.24 
1.79 
1.47 
15.83 
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OATft  FOR  THE  UNCERTAINTY  ANALYSIS: 


Flic  Ncnc:  UT063 

Prcccurc  Condition:  Uccuun  <kPc) 


Ucpor  Tcnpcrcturc  “  *8.775 

Wctcr  Flow  Rctc  <X>  •  88.W 

Uctcr  Velocity  •  *.32 

Meet  Flux  ■  2.278E+85 

Tubc-nctcl  thcrncl  conduc.  «  55.3 


Petkhov-Popov  conctent*  2. *1*6 


(Deo  C) 

<n/B  > 
<U/n*2  > 
(U/n.K ) 


UNCERTAINTY  ANALYSIS: 


VARIABLE 


PERCENT  UNCERTAINTY 


Nace  Flow  Rate ,  Hd 
Reynolds  Nunber,  Re 
Heat  Flux ,  q 
LoQ-Hean-Ten  Oltf,  LflTO 
Uall  Resistance,  Ru 
Overall  H.T.C. .  Uo 
Uater-Side  H.T.C. ,  Hi 
Vapor-Side  H.T.C. ,  Ho 


8.81 
1.1* 
1.53 
1 .22 
3.78 
1  .96 
1 .88 
6.33 
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DATA  FOR  THE  UNCERTAINTY  ANALYSIS: 


File  Neinc:  UTOEZ 


Pressure  Condition:  Uacuun  (k.Pe) 


Uepor  Tenpereture  « 
Water  Fiou  Rate  (X>  * 
Water  Uelocity  > 
Heat  Flux  > 
Tute-netal  thermal  conduc.  « 
Petkhov-Popov  constant*  2.4146 


48.759 
78. M 
3.79 

2.233E-«-e5 

55.3 


( Dec  C  > 

<n/s  > 
(W/n*2  > 
(W/r..K  ) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

Mass  Flow  Rate,  Nd 
Reynolds  Nunter ,  Re 
Heat  Flux ,  Q 
Loo“Nean-Ten  Oiff,  LHTO 
Wall  Resistance,  Ru 
Overall  H.T.C. ,  Uo 
Water-Side  H.T.C. ,  Hi 
Vapor-Side  H.T.C. ,  Ho 


PERCENT  UNCERTAINTY 

8.92 
1 .23 
1.58 
1 .89 
3.78 

1 .85 

1.86 
7.19 
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OATft  FOR  the  uncertainty  ANALYSIS: 


File  Nam*:  UT863 

Praiiur*  Comdltiori:  Vacuum  tkPa) 

Vapor  Temparatur*  • 

Uatar  Flow  Rat*  * 

Watar  Valocity  ” 


Haal  Flux 

Tube-metal  tharmal  conPuc. 
Petwhov-Popov  constant* 


2.4U6 


48.651 

58.88 

2.74 

2.183E+85 

55.3 


(Dao  C> 

im/s ) 
<W/m*2 ) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 

nass  Flow  Rate,  Nd 
Reynolds  Number,  Re 
Heat  Flux,  q 
LoB"flean-Tem  Diff,  LMTD 
Uall  Resistance,  Ru 
Overall  H.T.C. ,  Uo 
Water-Side  H.T.C. ,  Hi 
Vapor-Slde  H.T.C.,  Ho 


PERCENT  UNCERTAINTY 

1.27 
1  .51 
1 .58 

.84 
3.78 
1  .88 

1.28 
15.43 
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OATft  FOR  THE  UNCERTAINTY  ANALYSIS: 


Flit  Nan«:  UTOEZ 


Prtftsurc  Condition:  Uacuun  <kFa) 


Uapor  Tonperatupc  * 
Uator  Flow  Rate  <X)  • 
Water  Velocity  ■ 
Heat  Flux  * 
Tube-netal  thernal  eonduc.  « 
Patknov-Popov  constant*  2.4146 


48.855 

28.88 

1.IE 

1.61554-85 

55.3 


( Deo  C ) 

(n/8 ) 
<U/n*2 ) 
(U/n.K ) 


UNCERTAINTY  ANALYSIS: 
VARIABLE 


PERCENT  uncertainty 


Mats  Flow  Rate,  Hd  3.81 
Reynolds  Number  ,  Re  3.12 
Heat  Flux,  q  3.88 
LOQ-fleari-Ten  Oiff,  LMTO  .46 
Wall  Resistance,  Rw  3.78 
Overall  H.T.C. ,  Uo  3.12 
Water-Side  H.T.C.  ,  Hi  2.53 
Vapor-Side  H.T.C.  ,  Ho  16.48 
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DATA  FOR  THE  UNCERTAINTY  ANALYSIS: 


File  Nane:  UTflSl 

Preeeure  Condition:  Vecuun  (kPa) 

Vapor  Tanparature  •  48.876  (Deg  C) 

Water  Flow  Rata  <*)  ■  88. e« 

Water  Velocity  •  4.27  <«/8) 

Heat  Flux  «  7.978E+e4  <W/n*2) 

Tuba-natal  tharwal  conduc.  •  14.3  (W/n.K) 

Patkhov-Popov  constant*  1.9382 


uncertainty  ANALYSIS: 
VARIABLE 

Mass  Flow  Rata ,  tid 
Reynolds  Number ,  Re 
Heat  Flux ,  Q 
Log-Hean-Ten  Diff,  LMTO 
Wall  Resistance,  Rw 
Overall  H.T.C. ,  Uo 
Water-Side  H.T.C. ,  Hi 
Vapor-Side  H.T.C. ,  Ho 


PERCENT  UNCERTAINTY 

8.82 
1 .24 
3.57 
3.44 
5.87 
4.95 
1  .89 
18.64 
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DATA  FOR  THE  UNCERTAINTY  ANALYSIS 


File  Nine:  UT894 

Preseurc  Condiliori:  Uacuun  (kPe) 


Vapor  Tenperature  ■  48.892 

Water  Flow  Rate  *88.88 

Ueter  Velocity  *  4.33 

Heat  Flux  »  J.471E+8S 

Tube-netal  tharnal  conduc.  *  14.3 


Petkhov-Popov  conetent*  1.9238 


lOeo  C> 

(n/s ) 
<W/«‘2 ) 
(U/R.K> 


UNCERTAINTY  ANALYSIS: 

VARIABLE  PERCENT  UNCERTAINTY 


tiais  Flow  Rate ,  fid 

8.88 

Reynolds  Number,  Re 

1.13 

Heat  Flux,  0 

2.11 

Log-f1ean-Tei»,  Oiff,  LMTO 

1 .89 

Wall  Resistance,  Ru 

5.87 

Overall  H.T.C. ,  Uo 

2.83 

Water-Side  H.T.C. ,  Hi 

.99 

Vapor-Side  H.T.C. ,  Ho 

8.89 
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